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I. ABSTRACT 



THIS PROGRAM IS INTENDED TO TFST All OF' THE BASIC 
FUNCTIONAL LEVEL OPERATIONS OF THt TM05/Tbl6 
MAG TAPE STSTEM. ALL FUNCTIONSi WRITE. READ. SPACE. 
ERASE. REWIND. I.TC* WILL BE TESTED. IN ADDITION TO THt 
TMO^/TElf* TESTS, THE RH WILL BE TESTED SEPARATEl i IN 
SO MR AS IT !•:. POSSIBLE TO SEPARATE THE RH FROM THE 
TMOJ'TElb \ rSEL»- . 

REQUIREMENTS CHARDW^-RE) 



A. AN> POPU PROCESSOR 

B. 6K Of CORE 

C. CONSOLE TT» 

D. TMO? MAGTAPE CONTROl L PR 

E. MASS BUS COM ROLLER 

F. TE16 MAG TAPE TRANSPORT 



3, LOADING PROCEDLIRE 



USE STANDARD RINARi I OADINti PROCEDlWE 
4, STARTING PROCEDlME 



THERE ARE TWO C *? > STARTING ADDRE ->SE S THAT MAYBE USED: ^OOC A 1 AND cHOLA 

A. ^00(8): STARTING A' THIS ADDRESS WIH C^^iJSt THt PHO;»RAM 

IDENTIFICATION TO BE PRIN'^D KHlOWEf: Hi 
PEQltSTs »Ofi THE VARIOUS PARAM^ TtRs NEL LHO 
Bt THE PROGRAM. 

B. .nO(8): This AODRtSS IS INTfNOtO K'R ' >t •»' -i Rf START ONL t 

AND Will USt THC -'< rNT (-^AWaMf t^ VALUES, 

•*NQIt Stfc ALSO SEC HON S CONS(K t .vW'.'Ch -4tTUWu:a 
** TUPE tQ TO RESTART PROGRAM ( oiJOv . 
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AUTOMAITC MOUF. OP!rRATION 



4.2 



IV THIS PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODES 
Dt^AUT RESPONSES TO OPERATOR REQUESTS ARE USED. AND ALL AVAIL- 
ABLE TM03/TE16 COMBINATIONS ARE TESTED. ADDITIONALLY THE SOFTWARE 
SWR IS INVOKED WITH A SWITCH SETTING OF 000000 
IK LOADED VIA ACTll CHAIN MODE. 

♦♦EXCEPTION: If THIS PROGRAM IS LOADED VIA TMDP CHAIN MOD^ THt 

PROGRAM WILL NOT TEST Tr103 DRIVE 00, TE16 SLAVE 00, 

♦ ♦NOTE; IN OREi^ER TO CHANGE THt ^^FTTING OF THE SOFTWARE SWR. 
SET LOC: 176(SWREG:) TO THE UtbiHEO SETTING. 

*♦ NOTE: THIS PROGRAM CONTAINS AN OPERATOR ASSISTED SUBTEST. THIS 
SUBTEST IS NOT EXECUTED IN CHAIN MODE . TO RUN LOAD THE 
PROGRAM IN DUMP MODE. 

SAMPLE START AT 200 



NOTE: DEFAULT RESPONSES ARE SHOWN IN ANGLE BRACKETS <>, 

OPERATOR RESPONSES ARE SHOWN IN PARENTHESES (). AND 
LOCATIONS CONTAINING THE DEFAULT ARE SHOWN IN [1 . 
TO INVOKE THE DEFAULT RESPONSE TYPE (CR).NON STANDARD 
MODE FOR JUNIPERS IS M8951 (WP-IN) ,M8957tW? IN.Wl OUT) 



PARAMETER REQUEST: <DEFAULT> (RESPONSE) 



(LOCATION: 1 



TM05-TE16/TU77 BASIC FUNCTIONS TEST (DZTEC-B) 
TYPE tc TO RESTART 

REGISTER START: <X??AAO^ ( CP ) IREGS:! 

VECTOR AOrftESS: <2i.'4> (CR) (VECT:1 

IS CONTRr^LER vJUMPERED IN NON-STANDARD MODE 
TYPE 2 fOR NON jTANOARD OR CR FOR STANDARD: *3> 
DRIVE NtJMBER: <C> (CR) [DRVN;] 

SI AVE NUMBER: <0> (CR) [SLVN:] 

SERIAL NO: 12545 
RH OM T (NO»O.YES*n: <0> (0^ IRHQJ-'il 

If THE SOFTWARE SWR li iNVOKtD; 
SWR * <000000> NEW • (CR) 
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CONTROL: 

1) CONTROL G <fG>: 

SFLECTS THE SOFlUARr SWR AND ALLOWS THE- USER TO SELECT NEW SWITCH SRTlNGb. 

THE MACHINE WILL THEN TYPE: SWH -XXXXXXNEW- 

WHERt: XXXXXX IS THE OCTAL CONTENTS OE THE SOf TWARt- sgW . 
AFTER THE 'NEW-'' HAS BEEN T .PED THEN THF OPERATOR CAN DO ONt 
or THE EOLLOWINCj at the TT>: 

A) TYPE A NEW SWITCH SETTING 

B) IF A <CR^ IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 

2) CONTROL A < tA>: 

ALTERNATES USAGE OF SWR FROM HARDWARE TO SOFTWARE f. VIC^ VERSA, 

3) CONTROL C < tC*: 
RESTARTS PROGRAM AT 200 

4) CONTROL U <tUM 

DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 

ALL SWITCHES EXCEPT 5 9 ARE USED AND THE NORMAl . OR DEFAULT. 

RUN IS DONE WITH ALL SWITCHES SET TO ZERO (0). 

ALL HARDWARE SWITCHES ARE DYNAMIC, AND MAY BE CHANGED AT ANY TIME, 



SW15C 100000) 
SW14C04000'^) 
SW13(0?0000) 
SW1<^C 010000) 
SW 11(004000) 
SWIOCOOl^OOO) 



I -HALT ON ERROR 

0-CONTIf^UE 

l-LOOP ON ERROR (SCOPE; RH TESTS ONL i ) 

0-CONTINUE 

1 -DO NOT PRINT ERRORS 

O-PRINT ALL ERRORS 

l-CONTINUOUS CYCLE 

O-HALT AT END OF PASS 

I^INHIBIT ITERATION 

O-DO ALL ITERATIONS PER TL'jT 

I -MALT AT END OF CURRENT TEST 

O-CONTINUE 
SW9-S; N/A 

SW4 0: SELECT TEST NUMBER : : 00- Al I TE'.Ts 



iHt USE 0^ SWO-4 IS TO ALLOW SELECTION AND lONIIN'JUUS 
tAECUTION OF ANi TEST. THE TEST SEiKTION HAt Be CHANC.t D AT 
ANi TIME, HOWEVER ;t Xs AQV I jAHI f Tt) V'^i jWIO H) STuP 'Ht 
PROGRAM AT THE END UK THE CUHRtNT ILI^I y tE U^t UtUtCHNU A Tt^I, 
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6. 



eRROR PRINTOUTS 



SAME 



THE ERROR PRINTOUT'-^ FOR EACH TEST WILL APPEAR IN THE 
GtNfcRAL FORMAT. THfc MRST LINt. WILL ALWAYS SHOW THE TEST NUMBER AND 
TITLtr. THE SECOND LINE WII L BE AN EXPLANATION OF THE ERROR. THE 
FOLLOWING LINES WILL SHOW VHE APPROPRIATE REGISTER OR ADDRESS 
VALL»ES THAT ARE APPLICABLE TO THE INDIVIDUAL TEST 

EXAMPLES: 

I. THIS EXAMPLE SHOWS A TtPICAL FRROR PRINTOUT FOR THE WRITE 
READ TEST: A WRITE CRC ERROR OCCURRED ON SLAVE 6. 



ITS 



y T13: WRITE -RFAD TEST 












WRITE FRROR NR/ 












CSl WC RA 


FC 


CSu^ 


OS 


ER 


TC 


144^60 000000 01S650 


000000 


000105 


150600 


100000 


101306 



THIS EXAMPLE SHOWS A TYPICAL SPACE ERROR: 

THE FC IS NOT ZERO AT THE END OF THE OPERATION. 



FTlAjSPACE TEST 

SPACE REVERSE ERROR mZ 

CSl WC BA FC 

144c>J0 ir/700 01/162 1/7740 



CSc^ 
000114 



OS 
150600 



tR 

001000 



TC 
161700 



THIS tXAM^>LE SHOWS A SPACE OPERATION WHICH PESULT(-D 
INCORRECT POSITIONING. SHOULD BE AT RECORD c>0. IS 



[N 
AT 



RECORD ^a 



F T14: SPACE TEM 
POSITION ERROR: 
REVERSE ERROR EXPT 



ao RCVDi^t' 






HI 
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7, OPtRATION 

THt PROCEDURtS FOR OPERATING THIS PROGRAM ARfc QUITF. 5IHPLE 
AND RFQUIRE OKtLl A FFW STFPS: 

1. LOAD ADDRESS aOO OR ^10 

?., SFT SWITCHES FOR DESIRED TEST CYCLE 

♦**»REFER TO SECTION 5 FOR DYNAMIC LOADING 
O SOFTWARE SWITCH RF.GI5TER. ♦ *♦ 
^ PRESS START 
4! ENTER APPROPRIATE RESPONES TO THE TTY REQUESTS 

ALL HARDWARE SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY 

TIME. THE NORMAL. OR DEFAULT, OPERATING SEQUENCE IS All 

SWITCHES DOWN (ZERO). THE END OF EACH PASS IS NOTEP Hi A 

MESSAGE STATING END OF PASS AND THE NUMBER OF THAT f^ASS, 

♦****FOR THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER REFER TO StCTlON 5 **♦**♦ 

SINGir V.:ST SELECTION: C SWO SU4 ) 

WHEN SWO 4 ARE SET TO ZERO (005 THE SCHEDULAR WILL 
EXECUTE AU. OF THE TESTS IN SEQUENCE . IF SWO-4 IS 
SET TO SOME SPECIFIC TEST NUMBER THAT PARTICULAR TEST 
WILL CE EXECUTED CONTINv.K)USL y . ANt TEST MA. BE SINGl f 
SELECTED IN ANY ORDER; HOWEVER. THE BtST WAi TO AFFECT 
THE CHANGE IS TO USE SWlO TO HALT THE CURRENT TEST, THEN 
CHANCE NUMBER AND PRESS CONrI^*JE. 



1 1 
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e. SUBTtST SUMMARIES 



THe FOLLOUING IS A LIST Qf ALL TESTS IN THFIR PROPtR SEQUENCE. 

A BASIC DEbCRIPTION OF EACH TEST IS PROVIDED TO AID IN UNDERSTANDING 

OF THE ERROR MESSAGES ASSOCIATED WITH EACH ONE. 

A. RH TESTS: THf FIRST TEN (10) TESTS WILL PER^ ORM BASIC RH 

OPERATIONS AS FAR AS IS POSSIBLE WITHOUT REQUIRING 
TJF TM05 TE16/TU77 ITSELF. (SEE RH ONLY OPTIONj PAR 7) 

FTl: RH ADDRESSING: THIS TEST WILL ASSURE THAT THE 

RH WILL RESPOND WITHOUT CAUSING A BUS 
TRAP TO ALL TM02 REGISTER ADDRESS 
IN SEQUENCE STARTING AT THE ADDRESS 
OF CSl ENTERFD BY THE OPERATOR. 

FT(?; RH REGISTER BITS READ/WRITE: THIS TEST WILL ASSURE THAT 

ALL BITS OF THE RH WRITE/READ REGISTERS 
CAN BE SET AND RESET, 

FT3: RH INITIALIZE: THIS TEST WILL ASSURE THAT A RH INITIALIZE 

(BIT 5 OF CS.?«n WILL INDEED CLEAR 
THE RH ERRORS. 

* FT4: SILO TEST 1: THIS TEST WILL ASSURE THAT A READ FROM 

AN EMPTY SILO WILL CAUSE OLT TO SET. 

* FTb: SILO TEST ?.; THIS TEST WILL ASSURE THAT BOTH THE 

IR AND OR BITS WILL CORRECTLY RESPOND 
TO LOADING OF THE SILO WITH ALL ZEROS 
AND THEN A WORD OV ALL ONES. 

* FT6: SILO TEST 3: THIS TEST WILL WRIIE AND THtN READ 

THE ENTIRE SILO TO ASSURF THAT DATA CAN 
BE PROPERLY FILLED AND READ. ALSO THf 
PROPER STATUS OF IR AND OR ARE CHECKED. 

♦ FT7: SILO TEST 4: THIS TEjT WILL ASSi.»RE PROPER RHll 

RESPONSE TO SILO OVERHOW. 

♦ FTIO; SILO TEST S: THIS TEST WILL ASSURE SILO RESET 

Hi RHl 1 TNTTTAl T/f . 

♦ **\ NOTE: ;>ILO TtbTS CE^T4-E^T10) AHh FOR THE RHll UNLt, ♦♦♦*♦ 
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B. TM05TF16/TU77 BASIC 



fill: NOP TtST: 



KT12: REWIND TfcST 



rUNCTlONS: THF FOLIOWING fOURTEFN C14) 
TfSTS WILL A5SURF OPERATION OV THE 
MAG TAPE BASIC KUNCTIUNS. 

THI-^ TEST WILL ASSURE THAT THE NOP 
FUNCTION EXECUTES WITH NO ERROR. 



THIS TEST WILL ASSURE THAT 
EL*4CTI0N JILL POSITION THE 
BOT WITH NO ERROR. 



THE REWIND 
TAPE TO 



I. ISSUE A REWIND COMMAND 
?. AWAIT PIP RESET (MOTION "jTOPPEO) 
5. ASSURE THAT NO ERROR OCCURED 
4. END 

(- ri5: WRITE/READ TEST; THIS TEST WILL ASSURE THAT 

THE UNIT UNDER TEST CAN WRITE AND 

READ IN ALL DENSITIES (FOR BOTH PE AND NR/). 



5 

4 

6 

7 



REWIND TO BOT 
WRITE 100 RECORDS 

A, ALL ONES DATA 

B, 200 FRAMES 

C, 200 BPIi ODD 

CHECK FOR ERRORS ON EACH RECORD 

READ REVERSE THEN FORWARD ALL 100 RECORDS 

CHECK FOR ERRORS ON FACH RECORD 

REPEAT STEPS 2 THRU 5 FOR 5S6 ,800. 1^>00 BPI 

END. 



DATA READ IS NOT CHECKED; ONL> THE FUNCTION IS TESTED, NOT THE MEDIUM 



FT 14: SPACE TEST 



THIS TEST WILL ASSURE THAT PROPER 
POSITIONING IS MAINTAINED By BOTH 
SPACE FORWARD AND RFVERSE. 



3 
4 
5 



I AST . 
RECORD 



Sl/E. 



H 

9 



REWIND TO BOT 
WRITE 100 RECORDS 

.^. EACH RECORD IS ONt ^ HAMt LARGER THAN THf 
THIS WILL ALLOW FOR POSITION CHECKlNti Bi 
EACH RECORD IS ERROR CHECKED. 
DATA RELATED ERRORS ARE IGNORfD. 
NOW SPACE REVERSE /7 RECORDS AND 
READ REVERSE 1, THE FRAME COUNT 
SHOULD BE 100. 

THIS IS THE Sl/E OF THE KIRST RECORD. 
NOW SPACE FORW.^RO 't> RECORDS AND READ 
FORWARD 1. THE FRAME COUNT SHOULD BE W ' . 
THIS IS TH£ SI^E OF THE NEXT TO LAST HI CORD . 

CONTINUE THE SPACE AND READ ( DECREMENT INl. THE RECORD COuNI E.ACh t IMt ; 
UNTIL AIL POSITIONS HAVE RUN CHECKED, XF POSITION IS LUSli TEST ENDS. 
REPEAT STEPS 1 THRU 7 KQR PE» 
END 
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FT15; tRASE TEST 



THIS TEST gil.L ASSURE THAT THE ERASE 
FUNCTION WILL INDEED ERASE TAPES. 

1. REWIND TO BOT 

?. ISSUE. 200 ERRASE COMMANDS. 

5. ASSURE NO ERRORS FOR EACH COMMAND, 

4. REWIND TO BOT. 

5. ISSUE A READ FORWARD COMMAND. 

6. THE TAPE SHOULD MOVE FORWARD UNTIL 
STOPPED BV DPI (APPROX ?5 FT"). 

7. ASSURE NO ERRORS OTHER THAN OPI. 

8. END 

fTlb: TAPE MARK WRITE/READ: THIS TEST WILL ASSUi.^ IHAT 

A TAPt MARK CAN BE WRITTEN AND READ 
IN BOTH PF AND NRZ . 

1. REWIND TO BOT. 

2. ISSUE A WRITE TAPE MARK COMMAND. 

3. ASSURE NO ERRORS. 

4. ASSURE THAT TAPE MARK STATUS IS SET 
IN DRIVE STATUS (BIT 2). 

5 READ REVER- - 

e! ASSURE THAT TAPE MARK IS SET. 

7. ASSURE THAT NO ERRORS OTHER THAN FCE OCCURbD 

8. READ FORWARD. 

9. REPEAT STEPS 6 AND 7 

10. REPEAT STEPS 1 THRU 9 FOR PE . 

11. END 

FT17; TAPE MARK SPACE TEST: THIS TEST WILL ASSURE THAT 

SPACIN(i WILL BE TERMINATED Bt RECOGNITION 
OF TAP! HARK BOTH IN PE AND NR/ . 



1. RLWINO TO DOT. 

2. WRITE THE FOLLOWING 
TAPE MARKS ANO DATA 



PrtTTEHN OF 
RECOPr^S: 



TM:20 RECS:TM:40 RECS:TM:fjO RECS:TM:100 RECStTM: 



3. 
4. 
5. 
6. 



ASSURE NO ERRORS. 

ASSURE THAT TAPE MARK STATUS IS 

NOW SPACE REVERSE 200 RECORDS. 



SET FOR TM WRITE 



.HOm.D 



STOP ON l-ACH 
5 SPACE 
THE t NT IRE 



THE 



/. 
8. 

10. 



THE SPACE OPERATION 
TAPE MARK IT FINDS. THEREFOR 
COMMANDS ARE ISSUED TO COVER 
PATTERN WRITTEN ON TAPE. 
BOT SHOULD NEVER BE REACHED AND 
FRAME COUNT Wll L REFELCT 
THE NUMBER OF RECORDS BETWEFN 
TAPE MARKS. 

REPEAT STEP b IN TH' f ORWAHO DIRECTION. 
ASSURE NO ERRORS OTHtR THAN FCE. 
riFPf AT STEPS 1 THRU 6 FOR Pi 
LNO 
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H20: WRITt CHECK TtST; BOTH WRIT;: CHECK FORUARO AND REVERSE ARE 

TESTED IN BOTH PE AND NRZ. 

1. REWIND TO BOT. 

2. WRITE A 400 TRAME RECORD USING DATA 
PATTERN 5 ( ^i:"' -S). 

3. ASSURE NO ERRORS JCCURED . 

4. ISSUE A REVERSE WRITS CHECK COMHAND. 

5. ASSURE NO ERRORS OCCv^REO. 

6. REPEAT STEP b FOR A FORWARD WRITE CHECK. 

7. REPEAT STEPS 1 THRU 6 FOR PE . 

8. END 

FTPl; ERASE HEAD TEST: THIS TEST WILL ASSURE THAT THE 

ERASE HEAD ITSELF IS OPERATING. 

1. REWIND TO BOT. 

2. WRITE 2 RECORDS OF 800C10) FRAMES 
EACH. EACH RECORD WILL BE 1 INCH 
OF TAPE. DATA IS NOT ALL ONES. 

5. REWIND TO BOT. 

4. NOW WRITE A 400(10) FRAME RECORD. 
THIS RECORD WILL BE ONE HALF 
INCH OF TAPE. THE ERASE HEAD 
SHOULD CLEAR THE REMAINDER OF THE 
FIRST RECORD (ONE HALF INCH). 

5. REWIND TO BOT, 

6. NOW READ THE SHORT FIRST RECORD. 
IT SHOULD BE 400(10) FRAMES. 

7. NOW READ THE SECOND RECORD. 
IT SHOULD BE STILL 800(10) 
FRAMES. 

8. IF THE SECOND RECORD IS TOO LONG. 
THE ERASE HEAD DID NOT f UNCTION OR 
IT IS IN THE WRONG POLARXTit . 

10. END 



FT^^; BUFFtRED COMMAND; THIS TtST WILL ASSURE THAT TH^ 

TM02 WILL ACCEPT AND tXECUTE ANOTHER 

COMMAND WHILE ITS SELECTED SLAVE IS REWINDING 

1. REWIND TO BOT. 

?. ISSUE 5 LONG WRITE COMMANDS TO ASSURE 

BEING OFF BOT. 
V ISSUE A RELIND '" tMANO . 
4. AS SOON AS DRIVl READr BECOMES SET, 

ISSUE ANOTHER WRITE COMMAND. 
^;. THE NEXT DRIVE READ1 SHOULD Hi A^ FIR THE 

TAPE HAS REACHED BOT AND EXECUTED THE 

UUffERED WRITE COMMAND. 
i,. AS'.URE NO ERRORS OCCURED. 
7. END 



Ml 
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SEQ O012 



FTaS: RF.AD IN PRFShT; 



THIS leST Wll I 
IG REWOUND AND 
(ONLY If SLAVE 



ASSURE THAT UNIT 
SET TO flOO BPI NORMAL 
IS SELECTED). 



I. ISSUE A WRITE COMMAND TO ASSURE 

BEING OFF BOT. 
?. ISSUE THE READ -IN PRESET COMMAND. 

3. AWAIT MOTION STOP. 

4. ASSURE THAT BOT WAS REACHED. 

5. ASSURE THAT THE TAPE CONTROL REGISTER 
IS SET TO 800 BPI. NORMAL. ODD. 

6. END 

(THIS TEST IS ONLY PERFORMED IF THE SELECTED SLAVE IS ZERO (0) 

FT^4: AUTOMATIC DENSITY SELLCTION -WRITE NRZ.READPF; 

THIS TEST ASSURES THAT AW NRZ WRITTEN 
TAPE WHEN READ AS PE WILL SWITCH THE 
SLAVE TO NR7 MODE. 

1. REWIND SLAVE 

2. WRITE AN NRZ RECORD 

3. REWIND SLAVE 

4. READ RECORD IN PE MODE 

5. CHECK DS REG PES BTT-0 

6. END 



FT25: 



AUTOMATIC DENSITY 


SELECTION-WRITE PE.READ NRZ: 




THIS TEST ASSURES THAT A PE WRITTEN 




TAOE WHEN READ AS NRZ WILL SWITCH 




THE SLAVE TO PE MODE. 




1. REWIND SLAVE 




2. WRITE A PE RECORD 




3. REWIND A SLAVE 




4. READ RECORD IN NR/ MODE 




5. CHECK DS REG PES BIT'l 




6. END. 



FT27; REWIND: OFF LINE 



THIS TEST WILL ASSURE 

THAT THE UNIT WILL REWIND AND 

GO OFF LINE. (NOT V IN CONTINUOUS 



CYCl E) 



1. ISSUE THE REWIND 0*-? -l INE COMMAND. 

2. ASSURE THAT MOl (BIT \e 0^ DRlVt STATU'.") 

IS RESET INOICATrN(> THE UNIT WENT OFF [ INF. 
5. END 

CTHl'i TtSV i\j NUl PERFUf^MtO UHLH CQNUKUOUii CyCLL OPtRATigN XU iitUtCltD; UW U « I) 



« 



Nl 
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S4;< 

1344 
f^4S 
54 ^ 

r>4 ; 

S48 
54^) 
S-'iO 

b5J 

SS5 
554 
55S 
556 
55/ 
558 
55^ 
560 
5bl 
56r: 
565 
564 
5*1 S 
5*^b 
56 7 
568 
569 
5/0 
5/1 
57.'' 
5/'. 

r- /'^ 

S/5 
5/6 
5// 
5/« 
5/"; 
^90 



.LIST BIN.LOC.StQ 

.TITLt CZTECfO TM03-TE16/TU77 BF*T 

iBASIC FUNCTION TEST 

IAC-A797F HC 

jFCB 77 

jJ.G. ADAMS 

;Rt.Vlt.EO JUN 19/7 -^Y J.(;. ADAMS ; * »B ADCtD TU// CAPAHIl.ITY 

;REVISED NOV 1^78 Br MIKt PAGE ;• DESIGNATES CODE ADDED FOR 

J NON-STANDARD J'JMPER CONFIG. 
[REVISED MAY 1983 Bi B. LEBL ANC iDL FIXED CC0000810,CC0001688 

jREVlSEO SEP 1985 0- B, LEBL.ANC j; FIXED CC0001619. CCOOOl /43 

jREVIStD MARCH 1984 BY J. HIT! ;ADDED XON/XQF F KUNC I lONAl I T Y 

.MCALL . ^ACTll, . $EOP, SCATCH. $SAVt , JRtSTORE , JCHAIN, JCHNMODb 

.NLIST MC 

.1 1ST Mt 

.ENABLE ABS.AMA 

C0N501E SWTTCHES********* 



SW15( 100000): 
SW14( 040000) 

swl3^o^ooo): 

SWl^C 010000): 
itJi.lC4OO30): 
SW 10(00^000): 
SW'O 4; 



1-halt on error 

-continue 

1-loop on error c scope (040000) rh tests only) 

o-conti.4«;f 

1-00 not print errors 

0-prxnt errors 

1-halt at end of pass 

0-coNTiNoous Cic; e 

1-INHIBIT ITERATION'. 

0-00 ITERATIONS 

I -HALT AT END OF t-ACH TF S I 

0-CONTINOe 

SELECT TEST NL»1Bi: P :: 00 ^ Al, i TEST. 



iUSE SOFTWARE SWR U HARDWARE SWR *15::00> ■> mm OR NUT AVAIL. 



C/TtCK"^ TM05 
CZTFC^',P\l 

^64 
^8S 

^88 
f>8^ 
5^0 

59? 

r>9t. 
*?co 

601 
tjO^ 
60? 
604 
605 
b06 
60 7 
608 
609 
610 
Ml 
bl^ 
61? 
^j14 
bl^ 
61*^ 
617 
613 
619 
620 
6:'l 

6c* 7 



06-APR-ft4 I0i39 



MACYU 30C1046) 06 APR-84 10:45 



PAGfc 14 



SEQ 0014 



iCSl! 

iWCj 

iBA: 

ifCi 

|CS2! 

iOSi 

lEP: 

lATS: 

iCC: 

lOB: 

iDT: 
iSNi 
iTCt 



iTEle/TU?/ REGISTER BI TS********** 
15 |14 |13 |12 ill ilO |09 lOe |07 |06 |05 |04 |03 (02 lOl jOO » 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SC |TRE|MCPiSPRiDNA|PSL|A17iAl6|RDYiIE |FUN|FUN|FUN|FUN|FUNiGO 
I 1 I I I I I I I I 1 1 I } 1 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

WORD 
COUNT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
BUS 
ADDRESS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx> 

FRAME 
COUNT 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DLT,WCE|UPE|NeD|NEM,PGE|MXF|MOP|OR i IR jCLRjPAT ,BAI jUS »U1 jUO 
I 1 I t t I lERRi I I t t 1 I I 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ATAieRR|PIP|MOL|WRLiEOT|SPR|OPR|DRY|SSC|PES»SDNirDBjTMKieOTiSLA 
I I 1 1 I I I 1 1 I I I I I 1 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
CDEiUNSiOPIiDTEiNEFiCS |FCE iNSGiPEF i INCaOAT |FMT iCNT jRMRi ILR t ILF 
CRCi I I I iITMi I iLRCiVPEiBPEi ;BPE| i t 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
ATTENTION 
SUMMARY 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CHECK 

CHARACTER 
XXXXXNXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

DAiA 

BUFFER 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
DB |DB lOB iDB |DB lOB |DB »DB tOB jWRTjMM jOP lOP |0P tOP jMM 

0ili2i5|4,5»6| ?|P iCLKiCLKt 4 j 5 i ^ i I iGO 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

DRIVE I ' I iSlVi 

Type iCh I |PR I 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

SFRIAL 

NUMBER 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
ACL|FCS|SAC|ENAi^JPR|0EN|0FN|DEN|FMT»rMT,FMT|FMT|tVN|SSN|SSN;S5N 

I I lOr J I 4 1 ^ I I I fl , 4 I c' J I iPARi 4 1 ? I L 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXWXX 



c 



( .. 



Cnt CU> IM05-Tt 16 HI/.' HF I 
CZTFCK,PU Ob- APR 84 10:5*5 



6?0 

t>?l 

65? 

6 54 

6 5? 

6?6 

t»5r 

65» 

65^> 

c41 

(. n 

i,p 
<. 1 ) 
ii) 

en 

(.n 

64 5 
644 
645 
646 

64 7 
648 
649 
650 
651 

65^ 

655 
654 
655 
656 

65 7 
658 
659 
660 
661 
66,';' 

66 5 
664 
665 
66'> 
66 7 

66*> 
670 



000042 
000046 



000060 

oooo6^ 



000176 



000000 
00000 I 
000002 
000005 
000004 
000005 
000006 
000007 



000764 
000042 
000000 
000046 
003226 
000052 
000000 
000764 



000060 
0155/6 
000340 



000176 
000000 



000200 
000200 000 137 00 1 600 



000210 
000210 000157 002540 



000224 
000224 015566 
000226 000340 



MACni 50(1046) 06 APR -84 I0j45 PACSf. 15 



iRtGISTfR 6.QU1VS********** 

R0-i<0 
Rl-*l 
R2-*2 
R5-i<3 
R4-it4 
R5-K5 
SP-K6 
PC-ii7 



StQ 001^ 



lACTll HOOK •••♦•»♦♦»♦♦ 
JSVPC'. 
.-42 

.WORD 
.-46 

.WORD i END AD 
.•52 

.WORD 
.MSVPC 



(SAVE CURRENT LOCATION CTR 



iStT LOCATION 46 

(SET LOCATION 52 ' 
(RESTORE LOCATION CTR 



iTTY INTERRUPT VECTOR********** 



. -60 

.WORD TTINT 

.WORD 340 



iTTt INTERRUPT HEADER ADDRESS 
iPRIORITY LEVEL 7 



iSOTTWARE SWITCH REGISTER****** **•♦ 
lUSED IE HARDWARE SWR a5!:00> • 177777 OR NOT AVAIL. 



. -176 
SWREGj 



J SOFTWARE SWITCH REGISTER 



iSTART ADDRtSS*********** 
. -200 



JMP 



START (PROGRAM START 



(RESTART ADDRESS********** 

. -210 

JMP ST4 

iTM05 INTERRUPT V^CT0R♦ *•*♦-»•♦•• 

. '224 

MTINT (TAPE INTERRUPT MANOLtH ADDRESS 

340 



Ci'TfDO TMO^'THb Tu;; RF T MACYll 

CZTFCK.PU 06 -APR 84 10: 5^) 



^72 






67? 




000510 


6:4 






6?S 






^:'b 


000510 


172440 


6?: 


0005 U> 


172442 


678 


000514 


172444 


679 


000516 


172446 


680 


000520 


172450 


681 


000522 


172452 


682 


000524 


172454 


68? 


000526 


172456 


684 


000550 


172460 


685 


000552 


172462 


68t> 


000554 


172464 


687 


000556 


172466 


688 


000540 


1724 70 


689 


000542 


1724 72 


690 


000544 


172474 


691 






692 






693 






694 


000546 


177776 


695 


000550 


177570 


696 


000552 


177560 


697 


000554 


17 7562 


698 


000556 


177564 


699 


OO0560 


177566 


700 


000562 


17777? 


701 


000564 


0000 u 


702 


000566 


000010 


705 


0005 70 


000224 


704 


000572 


172440 


705 


000574 


000004 


706 


O00576 


000006 





Dr' 


30(1046) 06 APR -84 10|45 PAGh 16 




. -510 




iMASS BUS REGISTER EQUIVS******^*** 


CI 


172440 


wc 


172442 


Brt 


172444 


PC 


172446 


cs 


172450 


OS 


172452 


ER 


172454 


AS 


172456 


cc 


1 72460 


DB 


172462 


MR 


17246^ 


OT 


172466 


5N 


172470 


TC 


1724 72 


BAE! 172474 




iCONSTANTS*******^** 


PSl 


d: 177/76 iPROCFSSOR STATUS 


SWf 


^: 177570 iSWiTCM REGISTER 


TK' 


3: 177560 iTTY READER STATUS 


TKl 


3: 177'-b2 jTTy READ BUTTER 


TP 


S; i:756'i iTTY PUNCH STATUS 


TP( 


3: 177566 iTTY PUNCH BUFFER 


SERNUM: 177777 (SERIAL NUMBER 


DRVTP: Oil iDRlVE TYPE 


ITAMT: 10 i ITERATION AMOUNT 


VE( 


:T: 224 (INTERRUPT VECTOR(RH) 


RE( 


3S: 172440 iSTARTING Rt:GISTt-R ADDReSS 


BTI 


^Pt 4 (BUS TRAP ADDRESS 


BTRP2; 6 iQUS TRAP PRIORITY LEVEL 7 



SfcQ 0016 



CZTt.CtO TM05-TU6 U'.'/ Bf T 
C^TED .PU Ob-APR-84 10:59 



708 






:o<) 






710 


000600 


000000 


711 


000602 


000000 


71^ 


000604 


000000 


71? 


000606 


000000 


714 


000610 


000000 


71^ 


000612 


000000 


71b 


000614 


000000 


717 


000616 


000000 


718 


000620 


000000 


71^ 


000622 


000000 


7^0 


000624 


000000 


7? I 


000626 


000000 


7P.^ 


000630 


000000 


7^5 


00O652 


000000 


7P4 


000654 


000000 


7^^ 


0UO*< ^6 


000000 


726 


000640 


ooocoo 


7^7 


000642 


ooooco 


728 


000644 


000000 


7?9 


000646 


ooocoo 


730 


000650 


000000 


731 


000652 


000000 


732 


000654 


000000 


733 


000656 


000000 


734 


000660 


000000 


735 


000662 


000000 


736 


000664 


000000 


737 


000666 


000000 


758 


000670 


000000 


'3^ 


000672 


000000 


740 


000674 


000000 


741 


000676 


000000 


742 


000700 


000000 


74 3 


000702 


000000 


744 


000704 


000000 


745 


000706 


000000 


74 ft 


COO ; 1 


000000 


74 ^^ 


000/12 


000000 


746 


000/14 


000000 


749 


000716 


ooocoo 


750 


000720 


000000 


/51 


000722 


000000 


752 


000 724 


000000 


753 


000 ;26 


000000 


754 


000730 


000000 


75S 


0007 32 


oocooo 


75^. 


000.^34 


000000 


75/ 


000 7 36 


000000 


75f, 


000 740 


000000 


759 


000742 


000000 


760 













0C1046) 
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iKLAGS AND COUNTERS******* 


TOD: 





TIB: 





RHl7f : 





HDRFL : 


r 


EMADOR: 





DRVN: 





SLVN: 





BAOOR; 





rCNT: 





WCNT: 





RCNT: 





ERRP: 





ERRPl: 





RRD: 





RrO: 





ROYDX: 





OPDYX: 





SCNT 







PFLG 







RTRN 







ERADO: 





TEMPI: 





TEMP2: 





TEMP3: 





GTMSK: 





ITCNT: 





DSAV 







SAVl 







SAV2 







SAV3 







5C0LP: 





ITRLP: 





EXFL: 





PFXri: 





STF'.G: 





LTAOO: 





ruN: 





SERFL : 





CRCNT : 





UOES: 





PATRN: 





RHTf ; 





HRZOf- : 





RHOf : 





PCNTR: 





TEHPSTi 





COONT: 





RDSW: 





NONSTD: 


(• 


JUMP! 


iR: 






SEQ 0017 



czTtao 


1M05 Tt 16 111/.' Bf T 


C2TE.CF. 


PU Ob.APR-a4 10:39 


76? 




7b4 




7b5 


000 74i* 000000 


7t>6 


000 746 015?6? 


767 


0007".o 01350? 


7t>t^ 


0007!)? 0.3306 


7t9 


000754 013314 



MACYll 30C1046) 06-APR-84 



HP 

I0;45 PAGE 



la 



DATBL 
DATAO 
DATAl 
DATA2 
0ATA3 



SfcQ 0018 



(DATA PATTERN GENERATORS++++* 





DAT I 
DAT2 
DAT3 
0AT4 



lALl. ONE BITS 

lALL ZERO BITS 

i ALTERNATING ONE/ZERO BITS 

jALL BITS 0-377 



c/Tt.CHO 1H03- f^:\^- Tu/v Bf t 
C2TECK.PU Ob-APR-84 10:39 



HACYU 30(1046) 06-APR-84 



X0J45 PAGK 



1<) 



SEQ 0019 



771 






7 7.-^ 






773 






7 .'4 


000 756 


000000 


77S 


000760 


000000 


1 ■ ti 


00076? 


^03?7O 


1 1 1 


000764 


00 3? 70 


778 


000766 


0033 76 


77'^ 


000770 


003376 


780 


00077? 


O057?0 


781 


000774 


003 7?0 


78^ 


000776 


004140 


785 


001000 


004140 


784 


00100? 


004?66 


785 


001004 


004?66 


78fe 


001006 


004460 


78 7 


OOIOIO 


004460 


788 


00101? 


004 732 


789 


001014 


004 73? 


790 


001016 


0050?6 


791 


0010?0 


0050?6 


792 


0010?? 


005162 


793 


0010?4 


00516? 


794 


0010?6 


005300 


795 


001030 


005300 


796 


00103? 


00541? 


79 7 


001034 


00541? 


798 


001036 


0057?4 


799 


001040 


0057?ii 


800 


00104? 


006576 


801 


001044 


0065 76 


eoc^ 


001046 


007?10 


803 


001050 


007?10 


804 


00105? 


007456 


80^j 


001054 


007436 


806 


001056 


010040 


807 


001060 


010040 


808 


00106? 


010?64 


809 


001064 


010?64 


810 


001066 


010616 


811 


0010/0 


010616 


81? 


00107? 


0110?? 


813 


0010/4 


OHO?? 


814 


001076 


011?4? 


815 


001100 


011?4? 


816 


00110? 


011434 


817 


001 lOA 


011454 


818 


001106 


0116?6 


819 


ooiuo 


0116?6 


8?0 


OOlll? 


01?064 


8? I 


001114 


01?064 


8?? 


001116 


00516? 


8.M 


OOU?0 


0000? 7 


8i?4 


0011?? 


000000 



iL-OGIC TEST tNTRt TABUt********** 

TSTTULj 


vn 
rii 

FT? 
TT? 
F T3 

rT5 
rT4 
rT4 

rT5 
rT5 

F^T6 

FT6 

rT7 

f T7 

FTIO 

FTIO 

KTU 

Ffll 

FTl? 

FTl? 

FT 13 

FT15 

FT14 

FT 14 

FT15 

FT15 

► T16 
f T16 
FTl 7 
FT17 
FT?0 
FT?0 
FT?l 
FT?1 
FT?? 
FT?? 
FT?3 
FT?5 
FT?4 
FT?4 
FT?5 
FT?5 
F T?6 
f Tc't* 

> T?/ 
FT?; 

.WORD TtNO 
Tl AST : .WORD ?/ [CONTAINS 

$CNTRl.S : . WORD i XUN^XU^ »■ 



0^ TtSTS 
HAG 



1-r.-) 



C/Tf.C» 


TM05-Tt 16/ Ri// 


^i T 


CZTf-.Ct- . 


Pll 06 APR 84 


10:59 


8.^b 




001600 




f^.^ / 








a?a 








8^^) 


001600 


012706 


000500 


bSO 


001604 


013746 


000006 


831 


001610 


013746 


000004 


83^ 


001614 


012737 


001640 


855 


00162? 


00505 7 


000006 


834 


001626 


022777 


177777 


855 


001634 


001402 




856 


001656 


000404 




857 


001640 


022626 




853 


001642 


012757 


000176 


85^ 


001650 


012657 


000004 


840 


001654 


012637 


000006 


841 


001660 


005027 




(1) 


001662 


000000 




CI) 








(1) 


001664 


005757 


000042 


U) 


001670 


001407 




(1) 


001672 


012757 


000176 


(1) 


001700 


005237 


001662 


(1) 


001704 


000157 


001710 


CD 


001710 






84^ 


001710 


000240 




843 


001712 


122757 


000006 


844 


001720 


001005 




845 


001722 


012704 


020214 


846 


001726 


004757 


014414 


84 7 


001732 


000000 




848 


001754 


012704 


015565 


849 


001740 


004757 


014414 


850 


001744 


005757 


001662 


851 


001750 


001402 




85? 


001752 


000157 


002554 


853 


001756 


112757 


000043 


854 


001764 


012704 


015723 


855 


001770 


004 737 


014414 


85b 


0017/4 


013705 


000572 


85 7 


002000 


004737 


014650 


858 


002004 


012705 


000572 


859 


002010 


012701 


000007 


660 


002014 


012702 


176400 


861 


002020 


012703 


172300 


862 


002024 


00^^737 


014072 


863 


002050 


012704 


015746 


864 


002054 


004757 


014414 


865 


002040 


013703 


0005 70 


866 


002044 


004 757 


014650 


86 7 


002050 


012705 


000570 


86 « 


0020S4 


012701 


000004 


869 


002060 


012 702 


000224 


8 70 


002064 


012703 


000150 


H/1 


0020 70 


004 75/ 


0140/2 


fiW 


0020/4 


015 700 


0005/0 


^yz 


0Q^loo 


012 7ao 


01350(> 
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StQ 0020 



START: 



000004 
176714 



000550 



1$ 
2$ 
3$ 



CHNFLG : 



000550 



015563 



50i: 

SCHNi 

4$: 



5$: 



6$ : 
STOB: 



. -1600 
I PROGRAM 

MOV 

MOV 

MOV 

MOV 

CLR 

CMP 

BEQ 

BR 

CMP 

MOV 

MOV 

MOV 

CLR 

.WORD 

TST 
BEQ 
MOV 
INC 
JMP 

NOP 

CMPB 

BNE 

MOV 

JSR 

HALT 

MOV 

JSR 

TST 

BEQ 

JMP 

MOVB 

MOV 

JSR 

MOV 

JSR 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

JSR 

MOV 

JSR 

MOV 

MOV 

MOV 

MOV 

JSR 

MUV 

MUV 



START AND HOUSEKEEPING***** * ♦♦♦♦ 



<>500.SP 
S06,-(SP) 
Q/>4, (SP) 

oi$.aft4 

av>6 

d-i.aswR 

2$ 
5i 

CSP)..CSP> 
ftSUREG.SWR 
C SP ) * , 364 

csp)».ay?6 

(PC)f 


Q042 

50$ 

«SWREG,SWR 

CHNfLG 

SCHN 



66 . SiitA 1 
5$ 

0MSG69.R4 
PC.TTOUT 

6MSG5.R4 

PC.TTOUT 

CHNELG 

61 

TSCD 

«■ 0.MSG3 

dMSG4 . R4 

PC.TTOUT 

REGS,R5 

PC.OCTP 

6REGS.R5 

O/.Rl 

61V6400.R2 

0172500, R3 

PC.TTR 

OMSGS , R4 

PC. irouT 

VECT,R5 
PC.OCTP 
6VECT .R5 
64. Rl 
6224. R2 
6150. R5 
PC. riR 
VECT.HO 
fiMTINTARO)* 



I SET STACK POINTER 

J SAVE VECTORS 



I SET UP FUR TIMEOUT 

I REFERENCE HARDWARE SWITCH REGISTER 



(ADJUST STACK 

;POINT TO SOFTWARE SWITCH REG 

jRESTORE VECTORS 

llCLEAR CHAIN INDICATOR 
nCHAIN MODE INDICATOR 
Ml/0 - CHAIN/NOT CHAIN MODE 
ijBRANCH IF IN DUMP MODE 

I 1 INVOKE SOFTWARE SUR 
mSET CHNFLG - CHAIN MODE 
I iGO TO CHAIN ADDRESS 



(BRANCH IF LOADED VIA TMDP (DUMP MODE) 
I ADVISE USER TO REMOVE TMDP FROM UUT 



J PR INI TITLE 

iScE IF IN CHAIN MODE 

tIF NOT: BR 

jELSE GO START TEST 

lOO NOT PRINT TITLE ON RESTART 

jREQUEST REGISTER ADDRESS 

jPRINT CURRENT ADORtSS 
jSET ADDRESS SAVE LOC 
iSET SIZE OF RESPONSE 
iSET UPPER LIMIT 
I SET LOWER LIMIT 
I GO GET RESPONSE 

(REQUEST VECTOR 

[PRINT CURRENT VECIOR 

(SET ADDRESS SAVE I OC 

;SET SI*!E Or RESPONSE 

iSET UPPER LIMIT 

tSET LOWER LIMIT 

iGO GFT RESPONSE 

(L>LT VtCTOR 

iLOAU INTLRRUHT ADDRESS IK VECTOR 



CZTtC^■0 TM05-Ttl6/TU/; Bf T 
CZTEC^ .PU 06-APR-84 10:39 



MACVll 



6 74 

87S 

8/6 

877 

8 78 

879 

880 

881 

88^ 

885 

884 

88!^ 

886 

867 

888 

889 

890 

891 

89? 

80J 

894 

895 

896 

897 

898 

899 

900 

901 

90? 

90S 

904 

905 

906 

^07 

908 

909 

910 

911 

91.? 

915 

914 

91b 

916 

917 

918 

919 

9c'0 

9.U 

)?5 
9^4 
925 

9.^*j 
9,'/ 
'K'H 
'*.^9 



oo^l04 

002110 

002114 

002120 

002124 

00212b 

002152 

002154 

002156 

002142 

002146 

002150 

002152 

002154 

002162 

002166 

002172 

002176 

002202 

00220<» 

002212 

002216 

002222 

002250 

002252 

002256 

002242 

002246 

002252 

002256 

002262 

002266 

0022 72 

002276 

002502 

002510 

002516 

002522 

002550 

002552 

002556 

002542 

002544 

002550 

002554 

002560 

002564 

0025 70 

002574 

002400 

002404 

002410 

002416 

002424 

0024 V 

002440 



012710 

015700 

012701 

012702 

010022 

062700 

005501 

001375 

012702 

012700 

005022 

005500 

001375 

012737 

000157 

012704 

004757 

012 705 

012701 

012702 

012705 

004757 

022757 

001002 

004 73 7 

012704 

004757 

013705 

004757 

0127C5 

012701 

012702 

012705 

004737 

012777 

055777 

0057 7 7 

032777 

001405 

012704 

004 75 7 

000711 

012704 

004757 

013705 

004757 

012 705 

012701 

012702 

012705 

004 7 57 

012777 

055777 

015777 

52777 

001005 



000540 

0005 72 
000017 
000510 

000002 



000600 
000054 



000001 
005022 
016025 
014414 
000742 
000002 
000004 
000000 
014072 
000002 

015442 
016165 
014414 
000612 
014630 
000612 
000002 
00000 7 
000000 
014072 
C00040 
000612 
176166 
010000 

017164 
014414 

016205 
014414 
000614 
014650 
000614 
000002 
00000 7 
000000 
014072 
000040 
000612 
000614 
002000 



000722 



000742 



176210 
176202 

176170 



1 7610? 
1760 74 
176110 
176076 









- 1 
c 


50(1046) 


06 -APR 


-84 10:45 


PAGE 




MOV 


<>340.(R0) 






MOV 


REGS.RO 






MOV 


017, Rl 






MOV 


0C1.R2 




STO: 


MOV 


R0,(R2)* 






ADO 


*2.R0 






DEC 


Rl 






BNE 


sro 






MOV 


OT0B,R2 






MOV 


054, RO 




STl: 


CLR 


(R2)* 






DEC 


RO 






BNE 


STl 






MOV 


01,RHTF 






JMP 


TSRH 




STIA; 


MOV 


OMSG10A.R4 






JSR 


PC.TTOUT 






MOV 


JUMPER, R5 






MOV 


02.R1 






MOV 


04. R2 






MOV 


00, R3 






JSR 


PC.TTR 






CMP 


02. JUMPER 






BNE 


1» 






JSR 


PC.NOST 




1$: 


MOV 


OMSG10.R4 






JSR 


PC.TTOUT 






MOV 


DRVN.R5 






JSR 


PC.OCTP 






MOV 


0DRVN.R5 






MOV 


02. Rl 






MOV 


07. R2 






MOV 


00. R5 






JSR 


PC.TTR 






MOV 


040, acs 






BIS 


DRVN.aCS 






TST 


(dCl 






BIT 


010000. acs 






BEQ 


ST2 






MOV 


0MSG4 1 . R4 






JSR 


PC. TTOUT 






BR 


STIA 




bT2: 


MOV 


0MSG11.R4 






JSR 


PC.TTOUT 






MOV 


SLVN,R5 






JSR 


PC.QCTP 






MOV 


0SLVN.R5 






MOV 


02. Rl 






MOV 


7,R2 






MOV 


00, R5 






JSR 


PC.TTR 






MOV 


040. acs 






BIS 


DRVN.aCS 






MOV 


SLVN.aTC 






BIT 


02000, SOT 






BNh 


ST 3 
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iLOAD PRIORITY 
(GET START OF REGS 
I SET NUMBER OF REGS 
iGET START Of" TABLE 
iBUILO TABLE 
I BUMP ADDRESS 



Sta 00^1 



I SEE IF 
»IF NOT 



DONE 
BR 



J CLEAR FLAGS • COUNTERS 



I SET ADDRESS TEST KLAG 

(GO DO INITIAL ADDRESS TEST PASS 

!request Ju^:?ER configuration 

(GET ADDRESS OF RESPONSE 

(SET SIZE OF RESPONSE 

rSET RANGE 

iLOWER LIMIT 

I GET RESPONSE 

(TEST FOR NON-STANDARD MODE 

iMODIFY TEST SCHEDULE 

REQUEST DRIVE NUMBER 



GET CURRENT DRIVE O 
AND TYPE IT 
SET ADDRESS OF DRIVE 
SET SIZE OF RESPONSE 
SET UPPER L IMIT 
SET LOUER LIMIT 
GO GET RESPONSE 
SET INIT 
SET DRIVE 



NUMBER SAVE 



NUMBER 



ACCESS 
SEE U 
IF NOT 



DRIVE 
NED 
BR 



PRINT NOT AVAU 
REDO DRIVE REQl^fSr 

REQUEST SLAVE NUMBER 

GE T CURRENT SLAVE O 

AND TYPE IT 

SET ADDRESS Of SLAVE 

SET SIZE OF RESPONSE. 

SET UPPER LIMIT 

SET LOWER LiMn 

GO GET RESPONS( 

INIT 

SET DRIVE NUMBcR 

LOAD SI. AVt NUMBER 

SEE l^ SI AVE PRESENT 

U SU: BR 



SAVE 



C/TtCt 


TM05 Ult>. TU/; 


HF 1 


CZTECK . 


PU 06 -APR 84 


10:39 


950 


00^44.-5 


012 704 


017205 


951 


002446 


004737 


014414 


95.^ 


00?45? 


000754 




9?5 


002454 


012704 


017226 


9SA 


002460 


004 757 


014414 


95^ 


002464 


017703 


176050 


956 


0024 ;o 


004 737 


015156 


^57 


0024 74 


012704 


020071 


938 


002500 


004737 


014414 


95^ 


002504 


013/03 


000726 


940 


002510 


004 757 


014650 


941 


002514 


012705 


000726 


94? 


002520 


012 701 


000002 


94 5 


002524 


012702 


000001 


944 


002530 


012703 


000000 


94 S 


002554 


004737 


014072 


94b 








94.' 








948 


002540 


012 706 


000500 


949 


002544 


005037 


000730 


950 


003550 


004737 


015260 
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ST3: 



;bTrtRT 
ST4i 



MOV 

JSR 

BR 

MOV 

JSR 

MOV 

JSR 

MOV 

JSR 

MOW 

JSR 

MOV 

MOV 

MOV 

MOV 

JSR 

210 

MOV 
CLR 
JSR 



^SG42.R4 
PC.TTOUT 
ST2 

^5G4 5.R4 
PC. T TOUT 
aSN,R3 
PC.SNPT 
WSG62 , R4 
PC. T TOUT 
RHOf .R5 
PC.OCTP 
ORHOf .R5 
02. Rl 
01, R2 
00, R3 
PC.TTR 



0500. SP 

PCNTR 

PC.GTSWR 



StQ 0022 



jPRINT NON-tXlST SI AVt 
iREOO SLAVE RF.QUfSr 

iPRINT SERIAL NUMBER TAG 

I PRINT SERIAL NUMBER 

iGET REQUEST 

I REQUEST RHU Ohtt.T Rl SPONGE 

iGET CURRENT Kl AG SETTING 

J AND TYPE tT 

iSET FLAG ADDRESS 

(SET SI/E or RESPONSE 

J SET ur-PER LIMIT 

;SET LOWER LIMIT 

;G0 GET RESPONSE 



iSET STACK PTR 
jCLEAR PASS COUNTER 
jGET SWITCHES 
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StQ OO'di 



952 
95? 
9S4 
95S 
956 
957 
958 
c»59 
960 
961 
962 
965 
964 
965 
966 
967 
968 
969 
970 

cn 
(1) 
en 
c n 
en 
en 
en 
en 
(1) 
ci:; 
en 
(1) 
en 
en 
c n 
en 
en 
en 
en 
en 
en 
en 
en 

9?1 
97? 
973 
974 
975 
9/6 

9/; 

978 
979 
980 

981 
98:-' 
'^Hi 
984 



002554 

002562 

002566 

002572 

002576 

002602 

002610 

002614 

002620 

007620 

002630 

002652 

002636 

002642 

002646 

002652 

002654 

002660 

002662 

002670 

002676 

002704 

002710 

002716 

002720 

002726 

002732 

002740 

002742 

002 746 

002750 

002754 

002 756 

002764 

002 766 

0027 72 

003000 

003002 

003010 

003016 

003020 

003022 

003030 

003036 

003044 

003052 

005056 

003062 

005066 

005072 

003074 

005102 

005104 

003106 



052777 

005037 

005037 

013746 

013746 

012737 

005037 

00577 7 

012737 

000401 

022626 

012637 

012637 

017700 

042700 

001125 

C05737 

001457 

012737 

012737 

012777 

005237 

022737 

001524 

013777 

005777 

032777 

001356 

005237 

OOlOll 

005757 

001006 

122737 

0M002 

005237 

022737 

001733 

013777 

032777 

001751 

000240 

012757 

062737 

015737 

062737 

005037 

005037 

005037 

01 7 700 

000110 

052777 

001401 

000000 

005757 



175770 TSCDi 

000004 

000604 

1$: 
2$: 



175552 
175520 



000706 
000706 
000676 
000676 



NXTDRV: 
1$: 



OOOIOO 
000704 
000604 
000004 
000006 
002630 
000006 
175724 
000001 



000006 
O00D04 
175/02 
177740 

001662 

177777 
177777 
000040 
000612 
000010 

000612 
175556 
010000 

000614 

000612 

000006 

000614 
000010 

000614 
002000 



000756 
000004 
000706 
000002 
000660 
000626 
000606 
175614 



003000 175446 TSC02: 



000612 
000614 
173614 

000612 

175572 

175560 



NXTSLV 



000041 



000614 1$; 



TSCDA: 
T5RH: 
TSCOO: 
TSCOl! 



I TEST SCHEDULAR********** 



000704 



TbCD3: 



BIS *100,5)TI<S 

CLR STFLG 

Cl.R RH17r 

MOV Sd4.-eSP) 

MOV 806, -eSP) 

MOV <?ii.av>4 

CLR S06 

TST OBAE 

MOV <>1,RH17F 

DR 2$ 

CMP eSP)..(SP)» 

MOV eSP)*.Sd6 

MOV e SP ) ♦ , S#4 

MOV SSUR.RO 

BIG 0177740, RO 

BNF STSCO 

TST CHNFLG 

BEQ TSCDA 

MOV *-l,DRVN 

MOV O'l.SLVN 

MOV #40,aCS 

INC DRVN 

CMP 010. DRVN 

BEO tOOHE 

MOV DRVN.3CS 

TST aci 

BIT 010000, acs 

BNE 1% 

INC SLVN 

BNE U 

TST DRVN 

BNE II 

CMPB 06,3041 

BNE 1$ 

INC SLVN 

CMP 010. SLVN 

BEQ NXTDRV 

MOV SLVN.aTC 

BIT 02000, qK)T 

BEQ NXTSLV 

NOP 

MOV OTSTTBL.LTADD 

ADO tf4.LTA00 

MOV I TAOO.ITRLP 

ADD 02.ITRLP 

CLR STMSK 

CLR ERRP 

CLR HORH 

Mnv St TADD.RO 

JMP CRO) 

ni r 02000, 5ISWR 

Bl U TSCD5 

HAL r 

TST STFLG 



(SET KEYBOARD IE BIT 

iCLEAR SINGLE TEST FLAG 

(SET RH INDICATOR - RHll 

tSAVE ERROR TRAP VECTORS 

jAND PRIORITY 

J SET TIME OUT TRAP TO 1$ BELOW 

(REFERENCE BAE REGISTER 
;SET FLAG - RH70 



jRESET STACK 
I RESTORE ERROR 



TRAP 



(GO SELECT SINGLE TEST 
liBRANCH IF NOT IN CHAIN MODE 



I ) 

I ! 

i i 
i ! 
i i 

t i 

I I 
: I 
1 : 

: 1 
1 1 

t ! 

t i 



INITIALIZE DRIVE 

INITIALIZE SLAVE 

INIT CONTROLLER 

STEP DRIVE 

EXIT IF ALL DRIVES TESTED 

FOR AVAILABILITY 

LOAD DRIVE 

ACCESS DRIVE 

BRANCH IF DRIVE NON EXISTANT 

eNED ■ n 

STEP SLAVE AND BRANCH 

IF NOT SLAVE 

BRANCH IF NOT DRIVE 



t J BRANCH IF NOT TMDP 

t iSTEP TO SLAVE I 

j:BRANCH IF ALL SLAVES TESTED 

1 jFOR AVAILABILITl 

; ;LOAD SLAVE UNIT O 

I jBRANCH if SLAVE NOT 

i J PRESENT (SPR = 0) 



;SET ITERATION ADDRESS 



: clear print headt-p flag 
:Sft pointer to TF^'T 

iGO TO TEST 

;SEE IF HAL T ON TEST 

tV NUT : DR 

iSE IF SINGLE TEST 
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985 

986 

98 7 

988 

98^^ 

990 

991 

99c' 

99.^ 

994 

995 

996 

99/ 

998 

999 

1000 

1001 

100.? 

1003 

1004 

1005 

1006 

CD 



n 
1) 
1) 
1) 
n 



CD 
100 7 
1008 
1009 
1010 
1011 
iOlf* 
1013 



00311u> 

005U4 

003120 

00-^1?4 

003126 

005134 

005140 

005142 

005144 

003146 

003154 

005160 

005162 

003166 

003170 

003174 

00J200 

003204 

003210 

003212 

003214 

003216 

003222 

003224 

003226 

003250 

003252 

003234 

003256 

005240 

003244 

005246 

00 3.?54 

005256 

005260 

003264 



001746 
017700 
042700 
001613 
012737 
023700 
002410 
006300 
006100 
012737 
060037 
000726 
005737 
001265 
012704 
004737 
013703 
004737 
005000 
005300 
001376 
013700 
001405 
000005 
004 710 
000240 
000240 
000240 
000240 
005757 
001005 
032777 
001401 
000000 
005237 
000137 



175430 
177740 

000001 
C01120 



000756 
000706 

001662 

015761 
014414 
000730 
014630 



000042 



001662 
010000 



0007 50 
002554 



SEQ 0024 



000704 STSCD; 



000706 



TEND: 
JOONE: 



1$ 



SENOAD: 



HEREi 



175274 



TENOX: 



MOV 

BIC 

BEQ 

MOV 

CMP 

BLT 

ASL 

ROL 

MOV 

ADO 

BR 

TST 

BNE 

MOV 

JSR 

MOV 

JSR 

CLR 

DEC 

BNE 

MOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

NOP 

TST 

BNE 

HIT 

BEQ 

HALT 

INC 

JMP 



TSCOO 

aSWR.RO 

#177740, RO 

TSCD 

Ol.STKLG 

TLAST.RO 

TEND 

RO 

RO 

*TSTTBL.LTADD 

RO.LTADD 

TSCDl 

CHNFLG 

NXTSLV 

<^MSG6 , R4 

PC. T TOUT 

PCNTR.R3 

PC.OCTP 

RO 

RO 

1% 

3042, RO 

HERE 

PC,(RO) 



CHNELG 

TENDX 

<>10000,S)SWR 

TENOX 



I IF NOT: BR 

(BRANCH IE ALL TESTS SELECTED 

tSET SINGLE TEST FLAG 
I SEE IF EXCEEDED TESTS 
I IF 50: BR 

jSET TABLE MODIFIER 

iSLT TEST POINTER 

jBRANCH IF IN CHAIN MODE 

iPRINT END OF PASS 
J PRINT PASS NUMBER 



iGET ACTll RETURN ADDRESS 
; BRANCH IF NOT ACTll 



PCNTK 
T5C0 



iBRANCH IF IN CHAIN MODE 

■, SEE IF HALT ON PASS 
iIF NOT: BR 

,BUMP PASii COUNTER 
(RESTART 
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SbQ 00^5 



1015 










101^ 










1017 










1018 


003270 


012737 


020362 


000610 


1019 


003276 


012737 


013756 


000004 


1020 


003304 


012757 


000340 


000006 


10?1 


003312 


012700 


000016 




10?.? 


003516 


013701 


000510 




1023 


003322 


005711 






1024 


003324 


000240 






1025 


003326 


005500 






1026 


003330 


001403 






1027 


003332 


062701 


000002 




1028 


003336 


000771 






1029 


003340 


012737 


000006 


000004 


1050 


003346 


012757 


000000 


000006 


1051 


003354 


005737 


000722 




1052 


003560 


001404 






1053 


003562 


005037 


000722 




1054 


0C3366 


000137 


002166 




1055 


005372 


000137 


003074 





iRH ADDRESSING TEST********** 



FTl: 



FTIA: 
FTIB: 



FTlXt 



FTIXX- 



MOV *MSFT1.EMADDR 

MOV flTRAP.Sft4 

MOV O540»aV>6 

MOV #16. RO 

MOV C1,R1 

T5T CRl) 

NOP 

DEC RO 

BEQ FTIX 

ADO V^2,R1 

BR FTIA 

MOV *6.a«4 I RESET 

MOV *HALT.a06 

TST RHTF 

BEQ FTIXX 

CLR RHTF 

JMP STIA 

JMP TSCD2 



iSET HEADER 

I SET TRAP HANDLER ADDRESS 

I SET NUMBER OF REGISTERS 
iGET FIRST ADDRESS CCSl) 
(REFERENCE REGISTER 

[IF ADDRESS IS BAD, BUS TRAP WILL OCCUR 
J SEE IF DONE ALL 
tIF 50: BR 

iBUMP ADDRESS POINTER 
(CONTINUE 
TRAP CATCHER 

iSEE IF INITIAL ADDRESS TEST PASS 

(IF NOT: BR 

(CLEAR FLAG 

(RETURN 

jRETURN TO SCHtOULAR 



N 



2 
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1037 










1C33 










10?S 










1040 


003376 


012737 


02040 7 


000610 


1041 


003404 


012701 


177777 




1042 


003410 


004 737 


015540 




104 5 


003414 


013700 


000512 




1044 


003420 


010102 






1045 


003422 


OlOUO 






1046 


003424 


021002 






104 7 


003426 


001410 






1048 


003430 


012757 


016512 


000650 


1049 


003436 


012737 


005410 


000674 


1050 


003444 


004737 


003564 




1051 


003451^ 


015700 


000514 




1052 


003454 


010102 






1055 


003456 


C42702 


000001 




1054 


003462 


"10110 






1055 


003464 


)20210 






1056 


003466 


>01410 






1057 


003470 


312737 


016520 


000650 


1058 


0034 76 


012757 


003450 


000674 


1059 


003504 


004757 


005564 




1060 


003510 


013700 


000532 




1061 


003514 


010102 






1062 


003516 


010110 






1063 


005520 


012705 


004000 




1064 


003524 


005503 






1065 


003526 


001376 






1066 


003550 


020210 






1067 


003552 


001410 






1068 


003554 


012"'57 


016526 


000650 


1069 


003542 


01275/ 


005510 


000674 


1070 


003550 


0O4757 


003564 




1071 


003554 


005701 






10 72 


005556 


001455 






1075 


003560 


005001 






10/4 


003562 


000712 






1075 


003564 


000240 






10/6 


003566 


052777 


020000 


174754 


10 7/ 


003574 


001054 






1078 


005576 


005737 


000606 




1079 


003602 


001004 






1080 


005604 


015704 


000610 




1081 


005610 


004757 


014414 




108? 


005614 


01^757 


oooooi 


000606 


1085 


005622 


015704 


000650 




1084 


003C-26 


004 73 7 


014414 




1085 


003652 


012704 


016456 




1086 


005656 


004 737 


014414 




108 " 


0O5642 


010105 






1088 


00 5644 


004 737 


014616 




1089 


005650 


012/04 


016466 




1090 


005654 


004 757 


014414 




■:o9i 


005660 


OU005 






109^ 


00366^ 


004737 


014616 
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iRH REGISTER BITS READ/WRITE*******t4.» 


y\2\ 


MOV 


*MSFT2.EMA0DR 


(SET TEST HEADFR 




MOV 


*-l.Rl 


I SET ALL ONES PATTERN 


FT2A: 


JSR 


PC.INITl 


I GO INIT 




MOV 


UC.RO 


»GET ADDRESS OF WORD COUNT 




MOV 


R1.R2 


J SET EXPT REGISTER BIT PATTERN 




MOV 


Rl.(RO) 


J LOAD PATTERN 




CMP 


(R0).R2 


iSEE IF EXPT-RCVD 




BEQ 


FT2B 


J IF SO: BR 




MOV 


0MSG25.ERADD 


iSET CODE 




MOV 


*FT2A.SC0LP 


:SET SCOPE 




JSR 


PC,FT2ER 


(GO DO ERROR 


FT2B: 


MOV 


BA.RO 


iGET ADDRESS OF BUS ADDRESS 




MOV 


R1.R2 






BIC 


01, R2 


iSET EXPT PATTERN 




MOV 


Rl.(RO) 


(LOAD PATTERN 




CMP 


R2.CR0) 


jSEE IF EXPT-RCVD 




BEO 


FT2C 


;IF S0:8R 




MOV 


*MSG26.ERAD0 


(SET ERROR CODE 




MOV 


^T2B.SC0LP 


(SET SCOPE ADDRESS 




JSR 


PC.FT2ER 


iGO DO ERROR 


FT2C: 


MOV 


DB.RO 


jGET ADDRESS OF DATA BUFFER 




MOV 


R 1 . R2 






MOV 


Rl.(RO) 


(LOAD PATTFRN 




MOV 


«4000,R3 




FT2D: 


DEC 


R3 


(DELAY 




BNE 


FT2D 






CMP 


R2.(R0) 


jSEE IF EXPT-RCVD 




BEQ 


FT2E 


;IF SO: BR 




MOV 


^SG2/.ERAD0 


(SET ERROR CODE 




MOV 


*FT2C,SC0LP 


(SET SCOPE ADDRESS 




JSR 


PC,FT2ER 


(GO DO ERROR 


FT?F; 


T^;: 


Rl 


(SFF TF DON*^ RKSFT 




BEQ 


rT2x 


[IF SO: BR 




CLR 


Rl 


iSET ZFRO PATTERN 




BR 


FT2A 


(DO £ERO BITS 


FT2tR: 


NOP 








BIT 


020000, aswR 


(SEE If PRINT FRROR 




BNE 


FT2ERB 


(IF NOT; BR 




rsr 


HORFl 


(SEE ID DONE HEADER 




BNE 


V T^ERA 


J IF SO: BR 




MOV 


EMADDR.R4 






JSR 


PC. T TOUT 


(DO HEADER 


FT^ERA: 


MOV 


01 .^-.■;R^■L 


[SET Fl,A(i 




MOV 


tRAU0.R4 






JjH 


PC. TTOUT 


(PRINT ERROR COnE 




MOV 


0MSG22.R4 






JSR 


PC. TTOUT 


(PRINT EXPT TAtj 




MOV 


R1.R5 






JSR 


PC.OCTPt 


(PRINT FXPT 




MOV 


OMSG25,R4 






JSR 


PC. TTOUT 


(PRINT RCVD TAU 




MUV 


<R0).R5 






JSR 


PC^QCTPt 


iPRlNI RCVD 



SEQ 0026 
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10^5 


0C5666 


005777 


174656 


10^4 


005672 


100001 




1095 


005674 


OOOOOO 




1096 


005676 


004737 


013334 


109:* 


005700 


000240 




109a 


003704 


000207 




10*^9 


003706 


000240 




1100 


003710 


004 737 


013370 


1101 


003714 


000137 


003074 



B 



r') 



MACni 



30(1046) 


06 


APR 


•84 I0i4 


KT2ERB: 


TST 




asuR 




BPl- 




FT2ERC 




HAL T 






f T2ERC: 


JSR 
NOP 




PC, SCOPE 




RT^i 




PC 


n2X: 


NOP 








JSR 




PC.ITtR 




JMP 




TSC02 
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S£Q 00c:7 



(SEE IF HALT ON ERROR 
I IF NOT: DR 

iGO SEE IF SCOPE ON ERROR 

I IF NO SCOPE: CONTINUE TEST 

iGO SEE IF ITERATIONS 
iRtTURN TO SCHEDULAR 





















C/TtOO 


1H05 Ul^ ]u;; 


Bf T 


MACUl 


30(1046) 


06 APR -84 10:45 PAGF. 


24 


CZTtCI- . 


PU Ob-APR-84 


10:39 












1103 


















1104 

uos 

1106 












|RH INITIALIZE TEST********** 


003720 


012737 


020444 


000610 


FT3: 


MOV 


*MSFT3,EMADDR 


iSET TEST HEADER 


1107 


005726 


012737 


003720 


000674 




MOV 


0FT3.SC0LP 




noe 


003734 


004 737 


013540 






JSR 


PC.INITl 


»G0 INIT 


1109 


003740 


052777 


020000 


174552 




BIS 


d20000.0CS 


I FORCE UPE -1 


lliO 


003746 


000240 








NOP 






nil 


003750 


004737 


013540 






JSR 


PC.INITl 


tGO INIT 


1112 


003754 


005777 


174530 






TSi 


SCI 


iSEE IF SC IS RESET 


1115 


003760 


100005 








BPL 


FT5A 


|IF SO: BR 


1114 


003762 


012737 


016564 


000650 




MOV 


<WSG29.ERADD 


I SET ERROR CODE 


111? 


003770 


004737 


004054 






JSR 


PC.FT3ER 


iGO DO ERROR 


1116 


0037 74 


032777 


040000 


174506 


FT3A! 


BIT 


*4 0000. SCI 


tSEE IF TRE IS RESET 


1117 


004002 


001405 








BEQ 


FT5B 


ilF SO: BR 


1118 


004004 


012737 


016615 


000650 




MOV 


*MSG30,ERADD 


iSET ERROR CODE. 


1119 


004012 


004737 


00405A 






JSR 


PC,FT3ER 


iGO DO ERROR 


1120 


004016 


017701 


174476 




FT3B! 


MOV 


SCS.Rl 


iGET CS2 


1121 


004022 


042 vol 


000307 






SIC 


0507. Rl 


iMARK IR/OR 


1122 


004026 


005701 








TST 


Rl 


iSEE IF RESET 


1123 


004030 


001405 








BEQ 


FT3X 


iIF SO: B;^ 


1124 


004032 


012737 


016645 


000650 




MOV 


♦M5G51.ERADD 


iSET ERROR CODE 


1125 


004040 


004737 


004054 






JSR 


PC,FT3ER 


(GO DO ERROR 


1126 


004044 


004757 


015370 




FT3X! 


JSR 


PC. ITER 


(GO SEE IF ITERATION 


1127 
1126 
1129 


004050 


000137 


003074 






JMP 


TSCD2 


(RETURN TO SCHEDULAR 










{ERROR 


REPORT 


SUBROUTINE 




1150 


004054 


000240 






FT3ER! 


NOP 






1131 


004056 


032777 


020000 


174464 




BIT 


*20000.aSWR 


(SEE IF PRINT ERROR 


1132 


004064 


001015 








6NE 


2» 


iIF NOT: BR 


1153 


004066 


005737 


000606 






TST 


HORFL 


(SEE IF DONE HEADER 


1154 


004072 


001006 








BNE 


11 


(IF SO; BR 


1135 


004074 


013704 


000610 






MOV 


EMADDR.R4 




1156 


004100 


004737 


014414 






JSR 


PC.TTOUT 


(PRINT HEADER 


1137 


004104 


005237 


000606 






INC 


HORKL 




1138 


004110 


013704 


000650 




11: 


MOV 


ERAD0.R4 




1159 


004114 


004737 


014414 






JSR 


PC.TTOUT 


(PRINT ERROR CODF 


1140 


004120 


005777 


174424 




2$: 


TST 


SSWR 


(SEE IF HAL T ON ERROR 


1141 


004124 


100001 








BPL 


5$ 


(IF NOT: BR 


1142 


004126 


OOOOOO 








HALT 






1143 


004 1 30 


000240 






3*: 


NOP 






1144 


004 1 32 


004737 


015334 






JSR 


PC. SCOPE 


(GO SFt If SCOPE 


X145 


004136 


000207 








RTS 


PC 


(IF NOT: BR 



SEQ 0026 



C7TtC(-0 TMOS-Ttlb Ki/.* Rf T 
CZTECK.PU 06-APR.84 10J39 



MACYll 50(1046) 06 APR-84 10:45 



D3 

PAGE 



i?5 



StQ 00i;9 



114; 


















1148 
1149 
1150 












»RHll 


SILO TEST l! EPMTY 


SILO READ********** 


004140 


005737 


000604 




FT4: 


TST 


RH17F 




1151 


004144 


001141 








BNE 


FT5X 


J IF RH70j BR 


115c-' 


004146 


012737 


020476 


000610 




MOV 


W1.SFT4,EMA0DR 


iSET TEST TEST HFADER 


115? 


004154 


012777 


000040 


174336 




MOV 


«40.QCS 


tINIT 


1154 


004162 


017700 


174344 






MOV 


SOB.RO 


iREAD 08 


1155 


004166 


005777 


174326 






TST 


SCS 


iSEE IF OLT IS SET 


1156 


004172 


100013 








BPL 


FT4CR 


ilF NOT: BR 


1157 


00^174 


005777 


174310 






TST 


SCI 


iSEE IF SC IS SET 


1158 


004200 


100014 








BPl. 


FT4ERA 


»IF NOT: BR 


1159 


004202 


032777 


040000 


174300 




BIT 


040000,eCl 


(SEE IF TRE IS SET 


1160 


004210 


001414 








BEQ 


FT4ERB 


ilF NOT: 3R 


1161 


004212 


004737 


013370 




FT4X: 


JSR 


PC.ITER 


iGO SEE IF ITERATION 


1162 


004216 


000137 


003074 






JMP 


TSCD2 


(RETURN TO SCHEDULAR 


116? 


004222 


012737 


016673 


000650 


rT4ER: 


MOV 


«MSG32.ERADD 


iSET ERROR CODE 


1164 


004230 


000407 








BR 


FT4ERC 




1165 


004232 


012737 


016711 


000650 


FT4FRA: 


MOV 


#M5G53,ERA00 


iSET ERROR COOF 


1166 


004240 


000403 








BR 


FT4ERC 




1167 


004242 


012737 


016726 


000650 


rT4ERB: 


MOV 


«MSG34,ERADD 


(SET ERROR CODE. 


1168 


004250 


000240 






FT4|RCt 


NOP 






1169 


004252 


012737 


004140 


000674 




MOV 


«FT4.SC0LP 


iSET SCOPE ADDRESS 


1170 


004260 


004737 


004054 






JSR 


PC,FT3ER 


J GO PRINT ERROR 


1171 


004264 


000752 








BR 


FT4X 





C/TtCKO TM05-Ttlb'Tu;/ Bf T 
CZTED.PU 06-APR-a4 10:39 



MACYll 50(1046) 06-APR-84 



t3 

10! 45 PAGE 36 



StQ 0030 



ir:? 
11:4 
11:5 

11<'6 












iRHU 


SILO TEST 2: IR/OR 


CHECK********** 


004266 


005737 


000604 




FT5; 


TST 


RH17K 


SEE IF RH70 


1177 


004272 


001066 








BNE 


FT5X 


IF SO: BR 


iKe 


004274 


012737 


020526 


000610 




riov 


#MSFT5.EMAD0R 


SET TEST HEADER 


117^ 


004502 


012737 


004310 


000674 




MOV 


*rT5A.SC0LP 


SET SCOPE ADDRESS 


1180 


004310 


004 737 


015540 




FT5A: 


JSR 


PC.INITl 


GO INIT 


iiei 


004314 


032777 


OOOIUO 


174176 




BIT 


flioo.acs 


SEE IF IR IS SET 


1182 


004322 


001005 








BNE 


FT5B 


IF SO: BR 


1183 


004 324 


012737 


016744 


000650 




MOV 


*MSG35,ERADD 


^iET ERROR CODE 


1184 


0O4332 


004737 


004054 






JSR 


rC.FTSER 


GO DO ERROR 


1185 


004356 


052777 


000200 


174154 


PT5fJ: 


BIT 


fl200.0CS 


SEE IF OR IS RESET 


1186 


004344 


001405 








BEH 


FT5C 


IF SO: BR 


1187 


004346 


012757 


016771 


C0U.>50 




MOV 


#MSG36.ERADD 


SET ERROR COC'^ 


1188 


004354 


004737 


004054 






J^-W 


PC.FT3ER 


GO 00 ERROR 


1189 


004360 


012777 


00000'- 


174144 


FT5C! 


MOV 


oo.aoB 


LOAD ZERO INTO SILO 


1190 


004366 


032777 


000200 


•■'4124 




BIT 


<^200.SCS 


SEE THAT OR RESET 


1191 


004374 


001405 








BEQ 


FT5D 


IF IT DOES: BR 


1192 


004376 


012737 


017020 


000650 




MOV 


#MSG3 7.ERADD 


SET ERROR CODE 


1193 


004404 


004737 


00405A 






JSR 


PC.FT5ER 


GO 00 ERROR 


1194 


0O4410 


012777 


177777 


17411* 


Fr5D: 


MOV 


0-1. aOB 


LOAD SILO WITH 1 


1195 


004416 


012700 


004000 






MOV 


04000, RO 




1196 


004422 


032777 


000200 


174070 


FT5E: 


BIT 


0200 , acs 


SEE IF OR IS SET 


1197 


004430 


001007 








BNE 


FT5X 


IF SO: BR 


1198 


0044 32 


005300 








DEC 


RO 




1199 


004434 


001372 








BNE 


F15E 


AWAIT OR 


1200 


004436 


012737 


017020 


000650 




MOV 


OMSG37.ERAD0 


SET ERROn CODE 


1201 


004444 


004737 


004054 






JSR 


PC.FT3ER 


[GO DO ERROR 


1202 


004450 


004 737 


015370 




FT5X; 


JSR 


PC. ITER 


(GO SEt IF ITERATION 


1203 


004454 


000X57 


003074 






JMP 


TSC02 


(RETURN TO SCHEOUUAR 



*.- rfl. . J, .1 



CZTtCKO rM05"TH6/TU// Bf T 
CZTECr.PU 06-APR-84 10:39 



F 3 

MACYl'. 30(1046) 06-APR-84 10:45 PAGE 27 



SEQ 0051 



1205 
















1206 

120 ; 

1208 










tRHll 


SILO TEST 3: SILO 


DATA TEST********** 


004460 


005737 


000604 


FT6: 


TST 


RH17F 




1209 


004464 


001052 






BNE 


rT6X 


I IF RH70: BR 


1210 


004466 


012757 


020556 000610 




MOV 


0MSFT6,EMAD0R 


I SET TEST HEADER 


1211 


004474 


012737 


004502 000674 




MOV 


*FT6A.SC0LP 


(SET SCOPE ADDRESS 


1212 


004502 


004 737 


013540 


FT6A: 


JSR 


PC.INITl 


iGO XNIT 


1215 


004506 


005000 






Cl.R 


RO 


iPRESF.T DATA 


1214 


004510 


01007 7 


174016 


FT6B: 


MOV 


R0.90B 


(LOAD SILO 


1215 


004514 


005200 






INC 


RO 


I BUMP DATA 


1216 


004516 


022700 


000102 




CMP 


<>102.R0 


(SEE IF FILLED ALL 


1217 


004522 


001372 






BNE 


FT6B 


(IF NOT: BR 


1218 


004524 


0%211'l 


000100 173766 




BIT 


dlOO.SCS 


(SEE IF IR IS RESET. 


1219 


004532 


001405 






BEQ 


FT6C 


(IF SO: BR 


1220 


00453-3 


012737 


017131 000650 




MOV 


*MSG40,ERADD 


(SET ERROR CODE 


1221 


004542 


004737 


004054 




JSR 


PC.FT3ER 


(GO 00 ERROR 


1222 


004546 


032777 


000200 173744 


FT6C: 


BIT 


«200»SCS 


(SEE IF OR IS SET 


1223 


004554 


001005 






BNE 


FT6D 


(IF SO: BR 


1224 


004556 


012737 


017057 000650 




MOV 


OMSG38.ERA00 


(SET ERROR CODE 


1225 


004564 


004737 


004054 




JSR 


PC,FT3ER 


(GO DO ERROR 


1226 


004570 


005000 




FT6D: 


CLR 


RO 


(PRESET DATA 


1227 


004572 


017701 


173734 


FT6E: 


MOV 


SOB.Rl 


(READ SILO 


1228 


004576 


020001 






CMP 


RO.Rl 


(SEE IF EXPT-RCVD 


1229 


004600 


001010 






BNE 


FT6DE 


(IF NOT; BR 


1230 


004602 


005200 






INC 


RO 


(DUMP DATA 


1231 


004604 


022700 


000102 




CMP 


ai02,R0 


(SEE IF DONE ALL 


1232 


004610 


001370 






BNE 


FT6E 


(IF NOT: BR 


1233 


004612 


004737 


013370 


FT6X: 


JSK 


PC. ITER 


(GO SEE IF ITERATION 


1234 


004616 


000137 


003074 




JMP 


TSCD2 


(RETURN TO SCHEDULAR 


1235 
















1236 


004622 


000240 




FT6DE: 


NOP 






1237 


004624 


032777 


020000 173716 




oir 


«20C00,aSWR 


(SEE IF PRINT ERROR 


1258 


004632 


001032 






BNt 


FT6DEB 


(ir NOT: BR 


1239 


004634 


005737 


000606 




TST 


HORFL 


(SEE IF DONE HEADER 


1240 


004640 


013701 


000610 




MOV 


EMADOR.Rl 




1241 


004644 


0C4737 


014414 




JSR 


PC.TiOUT 


(PRINT HEADER 


1242 


004650 


005237 


000606 




INC 


HORFL 


(SET FLAG 


1243 


004654 


012704 


017111 


f T611LA: 


MOV 


^>MSG39,F^4 




1244 


001660 


004737 


014414 




JSR 


PC. T TOUT 


(PRINT SILO READ ERROR 


1245 


004664 


012704 


016456 




MOV 


<?MSG22.R4 




1246 


004670 


00473? 


014414 




JSR 


PC.TTOUT 


(PRINT EXPT TAG 


124 7 


004674 


010003 






MOV 


R0»R3 




1248 


0046/6 


004737 


014630 




JbR 


PC.OCTP 


(PRINT EXPT 


1249 


004 702 


012704 


016466 




MOV 


#MSG23,P4 




1250 


004 706 


004737 


014414 




JSR 


PC, T TOUT 


(PRINT RCVD TAG 


1251 


004 7 la 


010103 






MOV 


R1.R5 




1252 


004 714 


004737 


014630 




JSR 


PC.OCTP 


(PRINT RC^U 


125 5 


004 720 


0057 7 7 


173624 


FT6DtB: 


Tsr 


tJSWR 


(SEE IF HALT ON t.RROR 


1254 


004 724 


100001 






BPl 


rT6UEX 


(IF NOT: BR 


1255 


004 72h 


000000 






HAl T 






1256 


004730 


OQoao? 




FffeQUi 


RTii 


PC 


iRtTURN TO TtbT 



G5 



c/ncro 


rM05-Tt lb ]U// 


BI- T 


MACVll 


50C1046) 


06APR-64 10:45 PAGE 


2ft 


CZTFCK. 


PU 06 -APR 84 


10:39 












l.^'Stf 


















l^b^ 












iRHll 


SILO TEST 4: SILO 


OVERFLOW********** 


1260 


















1261 


004732 


005757 


000604 




rT7: 


TST 


RHl7f 




12b 2 


004 736 


001021 








BNE 


FT7X 


iIF RH70: BR 


1265 


004 740 


012737 


020606 


000610 




MOV 


dMSFT7,EMA0DR 


jSET TEST HEADER 


1264 


004 746 


012757 


004 752 


000674 




MOV 


/»f'T7,bC0LP 


(SET SCOPE ADDRESS 


126S 


004 7^4 


004 737 


015540 






JSR 


PC.INITl 


(GO INIT 


1266 


004 760 


012700 


000103 






MOV 


dl05.R0 


iSET SIZE OF SILO -1 


1267 


004 764 


010077 


173542 




FT7Ai 


MOV 


RO.SOB 


jLOAD SILO 


1268 


004 770 


005300 








DEC 


RO 


iSEE IF DONE 


1269 


004 772 


001374 








BNF 


FT7A 


(IF NOT: BR 


12 70 


004 7 74 


005777 


173520 






TST 


acs 


[SEE IF DLT IS SET 


1271 


005000 


100004 








BPL 


KT7ER 


iIF NOT: BR 


12. '2 


005002 


004 737 


01337C 




n"7X: 


JSR 


PC. ITER 


(GO SEE IF ITERATION 


1273 


005006 


000137 


003074 






JMP 


TSCD2 


(RETURN TO SCHEDULAR 


1274 


005012 


012737 


016673 


000650 


FT7£Ri 


MOV 


«MSG52.ERAD0 


(SET ERROR CODE 


127^1 


005020 


004 757 


004054 






JSR 


PC.KTSER 


iGO 00 ERROR 


1^76 


005024 


000766 








BR 


FT7X 





SEQ 0032 



i-i ^ 



ZZ\\iO 


Th05 Tf It. Tu;; 


BF ' 


MACUl 


50C1046) 


06 APR -84 iOi45 PAGt 29 


C/TFCK. 


l-M 1 Ob -APR -84 


10:39 












1^81 












jRHll 


SILO TEST 5: SILO RESET********** 


0050c*6 


005757 


000604 




rilO: 


TST 


RHWr 




\3^? 


00505^ 


001054 








BNF 


FTIOX I 


IF RH70: BR 


\?.bt 


005054 


012737 


020656 


000610 




MOV 


OM5FT10.EMA0DR i 


SET TESr HEADER 


1P84 


005042 


012737 


005026 


0006 74 




MOV 


W^TIO.SCOLP 1 


SET SCOPE ADDRESS 


u-^es 


005050 


012777 


000040 


175442 




MOV 


040. acs 1 


INITIALIZE 


laab 


005056 


012700 


000004 






MOV 


04.R0 1 


SET NUMBER OF SILO 


ipa: 


005062 


01007/ 


175444 




rriOA: 


MOV 


RO.SOB 


WRITE SILO 


1^88 


0050b6 


005500 








DEC 


RO 1 


SEE IF DONE 


1289 


005070 


001574 








BNF 


FTIOA 


IF NOT: BR 


1^90 


005072 


052777 


000040 


175420 




BIS 


d40,aCS 


INITIALIZE 


1^91 


005100 


012777 


\mii 


173424 




MOV 


« - 1 , 60B 


WRITE SILO 


1^9? 


005106 


017701 


175420 






MOV 


ODB.Rl 


READ SILO 1 


l^9?; 


005U2 


017701 


175414 






MOV 


aOB.Rl 


READ SILO 2 


1^94 


005116 


0057 7/ 


175576 






TST 


acs 


SEE IF DLT IS SET 


li:95 


005122 


100011 








BPL 


FTIOER 


IF NOT: BR 


i;^9<» 


005124 


004757 


015570 




FTIOX: 


JSR 


PC. ITER 


GO SEE IF ITERATION 


i:?9; 


005150 


005737 


000726 






TST 


PHOF 


SEE IF RHll ONLr 


1^98 


005154 


001402 








BEQ 


FTIOXX 


IF NOT: BR 


1.^99 


0O5156 


000157 


005162 






JMP 


TEND 


ELSE GO TO END 


1^00 


0OS142 


000157 


005074 




FTIOXX: 


JHP 


TSCD2 


RETURN TO SCHFDULAR 


1^01 


00M46 


012757 


016675 


000650 


FTIOER: 


MOV 


aMSG52.eRADD 


SET ERROR CODE 


\^Q^ 


005154 


004 757 


004054 






JSR 


PC.^ T5tR 


,G0 DO ERROR 


i503 


0O5160 


000761 








BR 


FTIOX 





SaO 0033 



WRITER 



C/TKCI-0 TM05-TE16/TU// BM 
CZTbCK.PU 06'APR-tt4 10:39 



I 



MACYll 30(1046) 06APR-84 10:45 PAGE 30 



StQ 0034 



130^ 










I NOP 


TEST***** 




130f> 
















130/ 


005162 


000240 




FTll: NOP 






1308 


005164 


012737 


005162 


000674 


MOV 


orTll.."C0LP 


I SET SCOPE ADDRESS 


1 30^ 


00517? 


004 737 


013540 




JSR 


PC.INITI 




1310 


005176 


012737 


000300 


000716 


MOV 


*300,U0ES 


[SET TC- ALL NRZ, NORM, ODD 


1311 


005204 


012737 


177777 


000620 


MOV 


#-l,rCNT 


jSET rC- ALL OVER 


131;? 


005212 


012737 


177777 


000622 


MOV 


«-l,UCNT 


(SET WC- ALL OVER 


151? 


005220 


01273? 


177777 


0006 If 


MOV 


0-l.BADl)R 


iSET BA- ALL OVER 


1314 


005226 


012737 


000001 


000636 


MOV 


#1,RDYDX 


I SET DELAY 


1515 


005234 


012737 


000001 


000640 


MOV 


Ol.OPDYX 


I SET OP DELAY 


1316 


005242 


012737 


000001 


000710 


MOV 


^l.FUN 


iSET NOP FUNCTIONS CODE 


131 ; 


005250 


004 737 


012310 




JSR 


PC.EXF.C 


;G0 EXECUTE COMMAND 


1318 


005254 


000240 






NOP 






1319 


005256 


012737 


020667 


000610 


MOV 


#MSrTll,fcMAUDR 




15^0 


005264 


004737 


012510 




JSR 


PC.ERCHK 


iGO CHECK REGISTER 


13cn 


005270 


004 737 


013370 




JSR 


PC.ITE.R 


iGO SEE IF ITERATIONS 


15*^.^ 


005274 


000137 


003074 




JMP 


TSCD2 


(RETURN TO SCHEOULAR 



CZJIX'SO TMOJ-TLlb/TU// BF T 
CZncr.fMl 06-APR-84 10:59 



15.74 










152S 










15:^6 


005500 


000240 






15:?.' 


005502 


012737 


005300 


000674 


15C8 


005510 


004737 


013540 




15.^9 


005514 


052777 


001700 


173220 


1550 


005522 


012757 


177760 


000620 


1551 


005530 


012757 


177770 


000622 


135.^ 


005536 


012757 


021544 


000616 


1555 


005544 


012757 


000007 


000710 


1554 


00535? 


004 757 


012510 




155S 


005556 


000240 






1556 


0053C0 


052777 


020000 


173134 


1557 


005366 


001374 






155? 


005370 


012757 


020707 


000610 


155'l 


005576 


004757 


012510 




1540 


005402 


004757 


015570 




1541 


005406 


000137 


003074 




134.^ 











MACYU 30(1046) 



FT12! 



F-TISA: 







.6 




06- 


APR 


-84 lCi45 PAGE 


31 


{RtWIND 


TEST***** 




NOP 








MOV 




*FT12.rDC0LP 




JSR 




PC.INITl 


I GO 


BIS 




01700. aTC 


I SET 


MOV 




0-20. FCNT 


iSET 


MOV 




0-10, WCNT 


iSET 


MOV 




OWDArA.BADDR 


[SET 


MOV 




07. FUN 


jSET 


JSR 




PC, EXEC 


J GO 


NOP 








BIT 




020000.5)05 




BNE 




FT12A 


tAUA 


MOV 




0MSFT12.EMADDR 




JSR 




PC.ERCHK 


iGO 


JSR 




PC,ITE.R 


(GO 


JMP 




TSCD2 


iRET 



5tQ 0035 



INIiIALI/E 
TO NR/. NORMAL 
FC-20 
WC-10 

BA-WRITE BUFFER 
REWIND OP coot: 

EXECUTE COMMAND 



IT PIP 

CHECK FOR ERROR 
SEE IF ITERATION 
URN TO SCHEOULAR 



K.^ 



CifTt.CKO Th03-TM6/ TU// 8f T 
C/TECK.Pll 06-APR-84 10:39 



MACYll 30(1046) 06 APR-84 10:45 



) 
PAGE 



o? 



1344 










1345 










1546 


005412 


000240 






134 7 


005414 


012737 


000001 


000656 


134fi 


00542? 


012737 


OOOOOl 


000640 


1549 


0054 50 


012737 


000100 


000624 


I3:i0 


0054 56 


012737 


02073? 


000610 


1351 


005444 


012757 


OOOOOl 


000720 


1352 


00545? 


004 737 


013222 




13^3 


005456 


012737 


001700 


000716 


1554 


005464 


004757 


012442 




1355 


005470 


012757 


177600 


000620 


1356 


005476 


012737 


177700 


000622 


155 7 


00r504 


012737 


021544 


000616 


1358 


00551? 


012737 


000061 


000710 


1359 


005520 


012757 


016225 


000626 


1360 


005526 


004737 


012310 




1361 


005552 


005037 


000674 




1362 


005536 


004737 


012510 




1363 


005542 


005337 


000624 




1364 


005546 


001367 






1365 


005550 


012737 


000100 


000624 


1566 


005556 


012737 


025256 


000616 


1567 


005564 


062737 


000200 


000616 


1368 


005572 


012737 


000077 


000710 


1369 


00r600 


012737 


016245 


000626 


1370 


005606 


004737 


012310 




1371 


005612 


004 737 


012510 




137? 


005616 


005357 


000624 




1373 


005622 


001371 






1374 


005624 


162737 


000200 


000616 


1375 


005632 


012737 


000071 


000710 


1576 


005640 


012757 


016270 


000626 


1377 


005646 


012757 


000100 


000624 


15/8 


005654 


004 737 


012310 




1379 


005660 


004737 


012510 




1580 


005664 


005357 


C00624 




1381 


005670 


001371 






138? 


00567? 


052757 


002000 


000716 


1583 


005700 


001007 






1584 


00570? 


012757 


00?300 


000/16 


1 58'j 


005710 


012757 


000100 


000624 


1386 


oor.7i6 


00066? 






13^7 


0057i.'0 


00013? 


003074 





StQ 0036 



jWRITE/RtAD TEST***** 



FT13: 



T13A: 



FT138: 



FT13C 



FT13D 



FT13X; 



NOP 






MOV 


dl.RDYOX 




MOV 


«1,0PDYX 




MOV 


#100.RCNT 


iSET RECORD COUNT 


MOV 


<W1SFTl5,EMAn0R 


(SET TEST HEADER 


MOV 


tfl.PATRN 




JS^y 


PC.DSUP 


iSET UP ALL ONES DATA PATT 


MOV 


01700. UDES 


(SET TO 800 BPI NORMAL 


JSR 


PC.RWND 


(GO REWIND 


MOV 


0-200. FONT 


iSET FC 


MOV 


O-IOO.UCNT 


I SET WC 


MOV 


OWDATA.BAODR 


tSET BA 


MOV 


061. FUN 


J SET WRITE OP -CODE 


MOV 


0MSG12.ERRP 




JSR 


PC. EXEC 


(GO EXECUTE COMMAND 


CLR 


3C0LP 


iNO SCOPE LOOP 


JSR 


PC.ERCHK 


I GO CHECK ERROR 


DEC 


RCNT 


I SEE IF DONE ALL 


BNE 


KT15B 


J IF NOT: BR 


MOV 


0100. RCNT 


J SET RECORD COltNT 


MOV 


ORDATA.bADOR 




ADD 


0200 . BADDR 


iSET BA 


MOV 


077. FUN 


J SET READ REVERSF OP-CPDE 


MOV 


0MSG15,ERRP 




JSR 


PC. EXEC 


I GO EXECUTE COMMAND 


JSR 


PC.FRCHK 


I GO CHECK ERROR 


DFC 


RCNT 


iSEE IF READ ALL 


BNE 


FT15C 


[IF NOT: BR 


^.ue 


0200.BAODR 


tSEl BA 


MOV 


071. FUN 


iSET READ FORWARD OP-CODE 


MOV 


0MSG14.ERRP 




MOV 


0100, RCNT 


(SET RECORD COUNT 


JSR 


PC, EXEC 


(GO EXECUTE COMM/\ND 


JSR 


PC.ERCHK 


(GO CH^CK ERRORS 


DEC 


RCNT 


(SEE ly DONE ALL 


BNe 


FT15D 


I IF NOT: BR 


BIT 


02000. UOES 


iSEE IF DONE PE 


BNE 


FT15X 


(IF SO: BR 


MUV 


o?5oo.uoes 


(SET Pt MODE 


MOV 


0100. RCNT 


(RESn RECORD COUNT 


BR 


KT13A 


iGO DO NEXT DENSITY 


JMP 


T5CD2 


iRtTURN TO SCHEDULAR 



CZTtOO 1M05 
CZTtCr.PU 



Thl6/ru// 8f T 
06-APR-64 10:59 



MACYU 30(1046) 06 -APR -04 



15 

I0t45 PAGE 35 



StQ 0037 



1^8^ 

1390 

1391 

159 J 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

140? 

M03 

1404 

1405 

1^06 

1407 

1408 

1409 

1410 

14 l1 

141,-^ 

1413 

1414 

141S 

1416 

1417 

1418 

1419 

1420 

14^1 

l4^?. 

1424 
1425 
14?6 
14c?7 
i-^58 
14?9 
1450 
1431 
1432 
1433 
1434 
1435 
1456 
1437 
1438 
14 3'-* 
1440 
1441 
144? 
1445 
1444 



SPACE TEST***** 



005724 

005726 

005734 

005742 

005746 

005754 

005762 

005770 

005776 

006002 

006010 

006016 

006024 

00603? 

006040 

006044 

006052 

006056 

006062 

006064 

006070 

006074 

00610^ 

006104 

006112 

006116 

006120 

006126 

006154 

006142 

006150 

006154 

006162 

006166 

006172 

006174 

006200 

006202 

006210 

006214 

006216 

006222 

006230 

006254 

006240 

006242 

006246 

006250 

006254 

006256 

006262 

006266 

0062 70 

006272 



000240 

012737 

012737 

004 757 

012737 

012737 

012737 

012737 

004 737 

012737 

012737 

012737 

012737 

052777 

004 737 

012737 

004737 

005737 

001402 

000137 

005337 

032737 

001403 

162737 

005337 

001327 

012737 

012737 

012737 

012737 

004737 

012737 

004 737 

00573. 

001166 

0i.'4 737 

000240 

f 12737 

005237 

001555 

004 737 

012737 

004 737 

005737 

001143 

004 73/ 

000240 

C05237 

001535 

00523 7 

005337 

000725 

OOO240 

012757 



000610 
000716 

000624 
021544 
000620 
00C622 

000640 
000636 
000710 
000660 
172460 

000626 



020761 
001700 
012442 
000100 
177777 
177700 
177740 
013540 
001000 
040000 
000061 
102300 
000010 
012310 
017550 
012510 
000712 

006550 
000620 
000001 

000001 
000624 

000100 
COO 176 
177701 
000053 
012310 
017421 
012510 
000712 

006270 

000031 
000642 

012310 
017374 
012510 
000712 

cot 3 32 

0006*,-^ 

000632 
000634 



025256 Q0QU16 



000620 
000622 



000632 
000634 
00064 2 
000710 

000626 



000710 



000626 



F"T14: 

FT14A1 

FT14A: 



FT14A2 



FT14A3 



rTl4B: 



FT14RR; 



NOP 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
BIS 
JSR 
MOV 
JSR 
TST 
BFQ 
JMP 
D^C 
BIT 
BEQ 
SUB 
DEC 
BNE 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
JSR 
TST 
BNE 

jsr 

NOP 
MOV 
INC 
BEQ 
JSR 
MOV 
JSR 
TST 
BNt 
JSR 
NOP 
INC 
B^Q 
INC 

Dtr 

BR 

NOP 
MOV 



0MSFT14.EMADDR 

fll700.U0ES 

PC.RUND 

*100.RCNT 

^-l.WOATA 

*-100.rCNT 

#-40.WCNT 

PC.INITl 

»1000»0PDYX 

040000. RDYDX 

061. FUN 

0102300. STMSK 

010, acs 

PC. EXEC 

0MSG46.CRRP 

PC.ERCHK 

SERFL 

FT14A2 

FT14X 

FCNT 

Ol.FCNT 

FT14A5 

Ol.UCNT 

RCNT 

rT14A 

0100. RRD 

0176. RFD 

0-77, 5CNT 

033. FUN 

PC. EXEC 

0MSG4e.ERRP 

PC.ERCHK 

SErRFL 

FT14X 

PC.F T14RR 

031, FUN 

SCNT 

rT14X 

PC.FXEC 

OMSG4 7,lRRP 

PCERCHK 

StRn 

F714X 

PC,FT14RF 

SCNl 
f T14X 
RRD 
RFD 
FT14B 

flRQATAiUADDR 



SET TEST HEADER 

SET NRZ. NORMAL 

GO INITIALIZE 

SET NUMBER OF RECORDER 

SET DATA PATTERN 

PRESET FRAME CNT 

PRESET WORD CNT 

GO REWIND 



SET WRITE OP -CODE 

MASK DATA RELATED ERRORS 

INHIBIT BUS ADDRESS INCREMENT 

GO EXECUTE COMMAND 

SET ERROR CODE 

GO CHECK ERRORS 

SEE IF ERROR 

IF NOT: BR 

El SE EXIT 

BUMP FC 

SEE IF SHOULD BUMP UC 

IF NOT: BR 

BUMP WC 

SEE IF DONE ALL 

WRITE ALL RECORDS 

PRESET RECORD POSITION 

SET SPACE AMOUNT 

SET OP-CODE SPACE REVERSE 

GO EXECUTE COMMAND 

SET ERROR CODE 

GO CHECK ERRORS 

SEE IF ERROR 

IF SO: BR 

GO READ REVERSE * CHECK DATA 

SET SPACE FORWARD OP-COOE 

SET SPACE AMOUNT 

IF DONE; BR 

GO EXECUTE COMMAND 

SET ERROR CODE 

GO CHECK ERROR 

SEE TF ERROR Fl AG 

IF NO: BR 

GO READ FORWARD FOR POSITION CHECK 

DECREMENT SPACE AMOUNT 
If DONE : BR 
B'JMP DATA EXP I 
HUMP DATA tXPT 



tStl BA 



CZTF.CK"0 TM03-Ttl6/TU// 8F T 
CZTEa.PU 06-APR-8^ 10:39 
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M3 

PAGE 3S-1 



SBQ 003S 



144^ 

1446 

144? 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

14 72 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

i.a90 

1491 
1492 
1495 
1494 
1495 



006300 

006306 

006312 

006314 

006320 

006324 

006326 

006332 

006334 

006342 

006346 

006352 

006556 

006360 

006364 

006366 

006370 

006376 

006400 

006404 

006410 

006414 

006420 

006424 

006432 

006434 

006440 

006444 

006452 

006454 

006460 

006462 

006466 

006472 

0064 76 

006502 

006504 

006510 

006514 

006520 

006524 

006530 

006534 

006540 

006544 

006546 

006550 

006556 

006560 

006566 

00657a 



012737 

004737 

000240 

013/05 

020577 

001020 

000137 

000240 

012737 

004737 

013705 

020577 

001005 

004737 

000207 

000240 

032777 

001060 

012704 

0O4737 

0X2704 

004737 

012704 

032737 

001402 

012704 

0O4737 

032737 

001003 

012704 

000402 

012704 

004737 

012704 

0O4737 

010503 

042703 

004737 

012704 

004737 

017703 

042703 

004 737 

005777 

100001 

OOOOOO 

032737 

001005 

012737 

000137 

000137 



016451 
014414 
000002 

016423 

016403 
014414 
016456 
014414 

177700 
014630 
016466 
014414 
171766 
177700 
014630 
172004 



002000 

002300 
005742 
003074 



000710 



000710 



000077 
012310 

000632 
172172 

006360 

000071 
012310 
000634 

172140 

013540 



020000 172152 



020761 
014414 
016003 
014414 
016443 
002000 



FT14RF: 



FT14EC: 
FT14RER 



000716 



000710 



FT14R0: 



FT14R1: 
FT14R2: 



000716 
000716 



FT14R3: 
FT14X: 

FT14XX: 



MOV 
JSR 
NOP 
MOV 
CMP 
BNE 
JMP 
NOP 
MOV 
JSR 
MOV 
CMP 
BNE 
JSR 
RTS 
: NOP 
BIT 
BNE 

Mnv 

JSR 

MOV 

JSR 

MOV 

BIT 

BEQ 

MOV 

JSR 

BIT 

BNE 

MOV 

BR 

MOV 

JSR 

MOV 

JSR 

MOV 

BIC 

JSR 

MOV 

JSR 

MOV 

BIC 

JSR 

TST 

BPL 

HAi r 

BIT 
BNE 
MOV 
JMP 
JMP 



#77. FUN 
PC, EXEC 

RRD.H5 
R5.SFC 
FT14RER 
FT14EC 

PC. EXEC 
RKD.R5 
R5.SFC 
FT14RER 

PC.INITI 
PC 

#20000 . SSWR 

FT14R3 

#MSFT14,R4 

PC.TTOUT 

#MSG9.R4 

PC.TTOUT 

<WSG20.R4 

#2000. UDES 

FT14R0 

#MSG21.R4 

PC.TTOUT 

#2. FUN 

FT14R1 

#MSG17,R4 

FT14R2 

#MSG16,R4 

PC.TTOUT 

#MSG22.R4 

PC.TTOUT 

R5,R5 

#177700. R3 

PC.OCTP 

#MSG25,R4 

PC.TTOUT 

aFC,R5 

#177700, R3 

PC.OCTP 

SSUR 

FT14X 

#2000. UDtS 
FT14XX 

#2300, U0E5 
f T14A1. 

TSC02 



I SET READ REVERSE QP-CODE 
I GO EXECUTE COMMAND 



I SEE IF CORRECT RECORD 

I IF NOT: BR 

iGO CLEAR RHll ERROR BIT 

(SET READ rORWARD OP-CODE 
;G0 EXECUTE COMMAND 

;SEE IF CORRECT RECORD 
;IF NOT: BR 
(CLEAR RH 
(RETURN 

(SEE IF PRINT INHIBITED 
(IF SO: BR 

(PRINT HEADER 

(PRINT ERROR TYPE 

(SET NRZ TAG POINTER 

(SEE IF PE 

(IF NOT: BR 

(ELSE SET PE TAG POINTER 

;PHINT TAG 

(SEE IF READ REVERSE 

(if SO: BR 

•.t;0 PRINT 

i''RINT FRWD/REV 

(^ 

iM--' ' RECORD NUMBER 
(PRi-,^ EXPT RECORD NUMBER 

(PRINT RCVD T. . 

(MASK RECORD NUM8F ^ 
(PRINT ACTUAL RECORD NUMBER 
(SEE IF HALT ON ERROR 
iIF NOT; BR 

(SEE IF DONE PE 

(IF SO: BR 

(SET TO PE 

lOO IN PE 

(RETURN TO SCHtDULAR 
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34 



SEQ 00^9 



1497 










J ERASE 


TEST***** 




1498 
















1499 


006576 


000240 




FT15: 


NOP 






1500 


006600 


005037 


000660 




Cl.R 


STMSK 




1501 


006604 


012737 


000100 


000636 


MOV 


#100,RDYDX 




1502 


006612 


012737 


000010 


000640 


MOV 


<?10.0PDYX 




1503 


006620 


012737 


021003 


000610 


MOV 


<^MSFT15,EMADDR 


(SET TEST HEADER 


1504 


006626 


004 737 


012442 




JSR 


PC.RWNO 


J REWIND 


1505 


006632 


012737 


023256 


000616 


MOV 


<^RDATA,BAD0R 


I SET BA 


1506 


006640 


012737 


001700 


000716 


MOV 


#1700, UOES 


I SET NRZ. NORMAL 


1507 


006646 


012737 


000025 


000710 FT15A: 


MOV 


025. FUN 


J SET ERASE OP -CODE 


1508 


006654 


012737 


000454 


000624 


MOV 


#300. ,RCNT 


;*»E SET TO ERASE 300 TIMES 


1509 


006662 


004737 


012310 


FT15B: 


JSR 


PC, EXEC 


;G0 EXECUTE COMMAND 


1510 


006666 


012737 


017350 


000626 


MOV 


#MSG46.ERRP 


I SET ERROR CODE 


1511 


006674 


004737 


012510 




JSR 


PC.ERCHK 


jGO CHECK ERRORS 


1512 


006/00 


005737 


000712 




TST 


SERFL 


tSEE IF ANY ERRORS 


1515 


006704 


001032 






BNE 


FT15X 


jIF SO EXIT 


1514 


0'/6706 


005337 


000624 




DEC 


RCNT 


I SEE IF DONE ERASING 


1515 


r06712 


001363 






BNE 


FT15B 


;IF NOT: BR 


1516 


006714 


000240 






NOP 






1517 


006716 


004737 


012442 




JSR 


PC.RWND 


(REWIND 


1518 


006722 


012737 


177600 


000622 


MOV 


#-200.UCNT 


(SET WC 


1519 


006730 


012737 


000071 


000710 


MOV 


#71, FUN 


(SET READ FORWARD OP-CODE 


1520 


006736 


012737 


000040 


000636 


MOV 


#40.RDYDX 


;SET OELAi 


1521 


00o744 


004737 


012310 




JSR 


PC. EXEC 


jGO EXECUTE COMMAND 


1522 


006750 


000240 






NOP 






1523 


006752 


012737 


020022 


000626 


MOV 


#MSG60.ERRP 


(SET ERROR CODE 


1524 


006/60 


012737 


020000 


000660 


MOV 


#20000. STMSK 




1525 


006766 


004737 


012510 




JSR 


PC.ERCHK 


iGO CHECK nR-(ORS 


1526 
1527 
1528 










J ********************** ******«*4i*****«****4>«*4 










jTHIS 


CODE ADDED TO FORM REV C 


152^ 
















1550 










;THt SSC BIT AND THE PIP BIT IN THh^ ORlVt STATU'". REb 


1551 
155? 










;SHOULD NOT BE SET CONCURRENT; > 


1535 
1554 
1555 










• ****4i4(*A****4*4****4'**4i******** **«******« *«*«. 


006 //2 


012737 


OOOIOO 


0006 36 FT15X: 


MOV 


#100,R0tDX 


;SET Dt-l Ai 


1536 


007000 


012737 


OOOOIO 


000640 


MOV 


#10.OP0tX 




1557 


007006 


012737 


000020 


000624 


MOV 


#20. RCNT 


iSl T UP F OR 20 tRASt'> 


1538 


007014 


012737 


023256 


000616 IJ: 


MOV 


#rdata,badur 


; SET UP BUSS AOOR', 


1559 


007022 


012737 


001700 


000716 


MOV 


#170O.U0ES 


J SET UP TAPt CONTROl 


1540 


007030 


012737 


000025 


000710 


MOV 


#25. FUN 


;St T FUN FOR ERASt 


1541 


007056 


004757 


012510 




JSFt 


PC. EXEC 


tGO EXECUiE CMO 


1542 


007042 


00535 7 


000624 




Dec 


STNT 


(DECREMENT THF NUMBfc R Of FXtCuTt- 


1543 


00704b 


001362 






BKi- 


1 ■. 


{BRANCH IF MORE I fcF T 


1544 


007050 


052777 


001/00 


1 /1464 


jr> 


01 /UO.bJTC 




1545 


00? 056 


012777 


177760 


171.152 


MOV 


# 20. b»f C 




1546 


00 7064 


012777 


177770 


171420 


MOV 


lO.dWC 




1547 


007072 


012777 


021544 


I7i4ia 


MOV 


#UOATA.Q»BA 




1548 


00 7100 


0127/7 


C-;000 7 


171402 


MOV 


#7,aci 


iiM) RfUIM) 


154 V 


OC7106 


000240 






NOP 






1550 


00/110 


052777 


000100 


1/1404 25: 


HIT 


0100. qXJ'. 


iWAP MU .sf 


1551 


00/116 


001 //4 






UMJ 


J I 




1552 


007120 


017/37 


171576 


000652 


MOV 


b)DS. TEMPI 


iREAD DRIVt- STATU'5 RtU IMHtDM't 



CZTEa~0 TM05 
CZTFCF\Pn 



Ttl6 Tu/' Bf T MACni 
06-APR-a4 10:59 



155? 
1554 
1555 
155b 
1557 
1558 
1559 
15b0 
15bl 
1562 
15b3 
1564 
1565 
15t.h 
15t.: 
3 568 
1569 



007 l?6 052737 020000 000652 

007134 001420 

007156 052737 000001 007206 

007144 012704 016575 

00/150 004757 014414 

007154 010703 

007156 062705 000010 

007162 004 737 014616 

007166 004757 012772 



007172 
00 : 176 
007202 



005037 
004 757 
000137 



007206 
013570 
003074 









B4 




30(1046) 


06 APR 


-84 I0i45 


PAGE 


34-1 




BIT 


#20000. TEMPI 


1 CHECK FOR PIP 




BEQ 


FT15XX 




1 BRANCH ir NOT SFT 




BIS 


Ol.TAti 




iSET FLAG FOR ERROR 




MOV 


OMSG15rt,R'5 








JSR 


PC. T TOUT 








MOV 


PC,R3 








ADO 


«10.R5 








JSR 


PC.OCTPfc 








JSR 


PC.ERPTBl 




iGO PRINT ERROR 

|DS REG REPORTED IS I 

jAT THE TIME OF THE E 




CLR 


TAG 




iCLEAR FLAG 


f T15XX; 


JSR 


PC. ITER 




(CHECK FOR ITERATIONS 




JMP 


TSCD2 




iGO TO SCMEDU AR 



StQ OOAO 



ITS CONTENTS 
ERROR (5 LINES 



OF CODE BACK) 



007206 000000 



TAG! 



»WQRO 



(**C FLAG FOR ERROR ROUTINE 

















cn 




C*'T(-CK> 


1M05 Tt 16 Tu;; 


BJ T 


MACUl 


3011046") 


06-APR-84 10i45 PAGl- 35 


C/TFC^ , 


PU O6-APR-04 


10:39 












isa 
isv: 












iTAPt 


MARK WRITB/RtAD TEST***** 


007,?10 


000240 






rT16! 


NOP 






15:4 


00721^ 


012737 


000001 


000636 




MOV 


ffl.RDYDX 




1575 


00/220 


012737 


001000 


000640 




MOV 


OIOOO.OPDYX 




1576 


007226 


012737 


021025 


000610 




MOV 


^SFT16,EMADDR 1 


SET HEADER 


1577 


007234 


012737 


001700 


000716 




MOV 


#1700, UDES 


SET TO NRZ, NORMAL, ODD 


1578 


007242 


004 737 


012442 




FT16A: 


JSR 


PC.RWNO 


INIT AND REWIND SLAVE 


15 V9 


007246 


012737 


177760 


000620 


FTI6B1 


MOV 


*-20,FCNT 


FC-20 


1580 


007254 


012757 


177770 


000622 




MOV 


*-10.WCNT 


WC-10 


1581 


007262 


012757 


000027 


000710 




MOV 


#27, FUN 


SET WRITE TAPE MARK OP-CODE 


Ibfl^ 


007270 


004757 


012310 






JSR 


PC, EXEC 


GO EXECUTE v'TOMMAND 


1565 


007274 


012757 


001000 


000660 




MOV 


#1000.STM5K 


SET FOR FCE MASK 


1584 


007302 


C.12737 


016315 


000626 




MOV 


0MSG15.ERRP 


SET ERROR CODE 


1585 


007310 


004 737 


012510 






JSR 


PC.ERCHK 


GO CHECK ERROR 


1586 


007314 


004737 


013164 






JSR 


PCTMCHK 


GO SEE IF TM SET 


1587 


007320 


012737 


00O07? 


000 710 




MOV 


#77, FUN 


SET READ REVERSE OP-CUOt 


1588 


007326 


004737 


012310 






JSR 


PC.EXEC 


GO EXECUTE COMMAND 


1589 


007352 


012757 


001000 


000660 




MOV 


01000, STMSK 


SET FCE ERROR MASK 


1590 


007340 


012757 


016243 


000626 




MOV 


#MSG13.ERRP 


SET ERROR CODE 


1591 


007346 


004757 


012510 






JSR 


PC.ERCHK 


GO CHECK ERRORS 


159:? 


007352 


004737 


013164 






JSR 


PC.TMCHK 


GO SEE IF TM SET 


1595 


007356 


012757 


000071 


000710 




MOV 


#71. FUN 


SET READ FORWARD OP -CODE 


1594 


007564 


004757 


012310 






JSR 


PC.EXEC 


iGO EXECUTE COMMAND 


1595 


007570 


012737 


016270 


000626 




MOV 


#MSG14.FRRP 


iSEi ERROR CODE 


1596 


007376 


004737 


012510 






JSR 


PC.ERCHK 


|T0 CHECK ERRORS 


1597 


007402 


004 737 


013164 






JSR 


PCTMCHK 


(GO SEE IF TM StT 


1598 


007406 


032757 


002000 


000716 




BIT 


#2000. UOES 


(SEE IF DONE PE 


1599 


007414 


001004 








BNE 


FTlbX 


(IF SO: BR 


1600 


007416 


012757 


002300 


000716 




MOV 


#2 300. UOES 


[SET PE. NORMAL 


1601 


007424 


000706 








BR 


FT16A 


iDO IN PE 


1602 


007426 


004 737 


013370 




FT16X: 


JSR 


PC. ITER 


iDO ITERATIONS 


1605 


007432 


000137 


003074 






JMP 


TSCD2 


(RETURN TO SCMEOULAR 


1604 



















SEQ 0041 



D^\ 



C/UCi 


1M0.5-TM6 TU^• 


Bh 1 


MACV 1 1 


30(1046) 


06 APR-a4 10:45 PAGt 56 


C/Tf.CK. 


PU 06-APR-d4 


10:39 












1606 


















1607 
1608 
160^ 












iTAPH 


MARK SPACE TEST********a* 


0074i6 


005037 


000624 




flUi 


CLR 


RCNT 




1610 


007442 


012737 


021066 


000610 




MOV 


*MSrT17.EMA0DR i 


SET HEADER 


1611 


007450 


012737 


001700 


000716 




MOV 


01700. UOES I 


SET TO NR2 


161C 


007456 


004757 


012442 




FT17A; 


JSR 


PC.RWNO 1 


REWIND TAPE 


161J 


007462 


012737 


000027 


000 710 


l-"ri7Q: 


MOV 


*27,ruN 




16U 


0074/0 


012737 


040000 


000656 




MOV 


«40000.RDYDX 1 


SET DRY DELAY 


1615 


007476 


012737 


040000 


000640 




MOV 


*40000.0POYX 1 


SET OP DELAY 


1616 


007504 


004 737 


012310 






JSR 


PC.EXEC 1 


GO WRITE TM 


1617 


007510 


012737 


102500 


000660 




MOV 


0102500, STMSK t 


MASK DATA RELATED ERRORS 


i6ia 


007516 


012737 


016315 


000626 




MOV 


0MSG15.ERRP » 


SET ERROR TYPE 


1619 


007524 


004 737 


012510 






JSR 


PC»ERCHK I 


GO CHECK ERROR 


16?0 


007530 


00573/ 


000712 






rsT 


SERFL I 


SEE IF ERROR 


1621 


007554 


001137 








BNE 


rT17X 1 


IF SO: BR 


16^2 


007536 


004737 


013164 






JSR 


PC , TMCHK 1 


GO SEE IF TM SET 


16^5 


00 7542 


000240 








NOP 






luPA 


007544 


000240 








NOP 






Un-^S 


00 7546 


032737 


000100 


000624 




BIT 


0100. RCNT 1 


SEE IF DONE PATTERN 


U.r"6 


007554 


001045 








BNE 


FT170 1 


IF SO: BR 


162. 


(K)7556 


062737 


000020 


000624 




ADD 


020, RCNT I 


ADO 20 TO RECORD COUNT 


If c-b 


007r>o4 


015737 


000624 


000652 




MOV 


RCNT, TEMPI 1 


SAVE RECORD COUNT 


l^->'^ 


W7572 


012737 


177600 


000622 




MOV 


0-200, UCNT 


WC-128 


iL,; 


0076C0 


012737 


177400 


000620 




MOV 


0-400. rCNT 


FC-256 


l'--.^' 


0^760t> 


012737 


021544 


000616 




MOV 


OWOATA.BADDR 


BA-WRITE BU»^FER 


iu's;; 


007614 


012737 


000061 


000710 




MOV 


061, FUN 


SET WRITE OP CODE 


H\'- 


007622 


000240 






FT17C: 


NOP 






t ;• .;.. 


007624 


000240 








NOP 






* ''■ J '"> 


007626 


004737 


012310 






JSR 


PC.EXEC 


GO WRITE 


u>r.;. 


00763? 


012737 


016225 


000626 




MOV 


0MSG12.ERRP 


SET ERROR CODE 


I V x> ' 


00/640 


012737 


102500 


000660 




MOV 


0102500, STMSK 


MASK DATA RELATED ERRORS 


:.s^3 


007646 


004757 


012510 






JSR 


PC. ERCHK 


GO CHECK ERROR 


:-.'. :.'"* 


007652 


00573 7 


000712 






TST 


SERFL 


SEE IF tRROR 


16 'tO 


007656 


0010<i6 








BNE 


FT17X 


IF SO: BR 


■SAL 


00 7660 


005337 


000652 






DEC 


TEMPI 


SEE IF OONfc AIL 


lo-i;.' 


007664 


001356 








BNE 


rrr/c 


IF NOT: BR 


■m:>^5 


00 7666 


000675 








BR 


FT17B 


ELSE GO DO TM 


;f>44 


007670 


000240 






rT17D: 


NOP 






1C.4b 


007672 


012737 


000033 


000710 




MOV 


055, FUN 


SET SPACE REVERSE 


1^46 


007700 


012757 


016403 


000626 




MOV 


OM5G16,ERRP 


SET ERROR CODE 


•■ S4 7 


007 706 


012737 


177600 


000642 


rT1701: 


MOV 


200.SCNT 


SET TO 200 RECORDS 


•fV-fl 


007714 


012737 


000005 


000624 




MOV 


05, RCNT 


SET N(JMBER OF OPS TO DO 


: >49 


007722 


004757 


01554C 




rT17E: 


JSR 


PC.INITl 


GO INIT 


16^>0 


007726 


004 73 7 


012510 






JSR 


PC.EXEC 


GO SPACE 


.'.'-j.ji 


007752 


012737 


001000 


000660 




MOV 


01000. STMSK 


SET ERROR MASK 


\h '">:■> 


007740 


004 757 


012510 






JSR 


PC. ERCHK 


(GO CHECK ERROR 


1-5.^ 


00 7744 


005737 


000712 






Tsr 


StRKL 


[SEE IF ERROR 


16^4 


007750 


001051 








BNt 


FT17X 


I If- SO: BR 


3»V>S 


007752 


004 757 


015164 






JSR 


PC, TMCHK 


iGO SEE U TM SLT 


1'j56 


007 756 


005337 


000624 






DEC 


RCNT 


(SEE II- DONE SPACES 


1.SS7 


00 7 762 


001557 








BNE 


FT17E 


iIF NOT: BR 


1658 


007 764 


022757 


000031 


000710 




CMP 


05l,fUN 


(SEE IF DONE FORWARD 


;*)S9 


007 7 72 


00140 7 








Dt Q 


} 1 1 .'^ 


iV SO: BR 


i'i*".() 


00 7 7 74 


012757 


0164,'5 


0006(^6 




MOV 


oMSL.W.lRRP 


i^.L I tRROR CODE 


1661 


010002 


012 737 


0QQQ31 


0007 IQ 




MOV 


tfJl.FUK 


I SET ru SPACE FORWARD 



SEQ 0042 



E4 



C/TfC^ TM05-Tt Ib/TU// 


BF T 


MACVU 


30(1046) 


06 


APR 


-84 10:45 


PAGF. 


36-1 


CVTf C^ .PU 06-APR-84 


10:5<? 
















l^^., 010010 000756 








BR 




r rr/Di 




tDO FORWARD 


le.bJ 010012 03*^737 


002000 


000716 


rTl7F: 


BIT 




#2v00,UDES 




I SEE ir DONF PE 


U-^hA 010020 001005 








BNh 




FT17X 




I If SO; BR 


lots 010022 012737 


002300 


000716 




MOV 




^2500, ^JDES 




J SET TO P£ 


lt^6 010050 00015/ 


007456 






JMP 




KT17A 




,G0 Pt 


1667 010034 000137 


003074 




••'n7Xt 


JHP 




TSCD2 




iRETURN TO SCH 



SbQ 0043 



K4 



c;'u.cf 


1H05 n 16 Tl'// 


BF T 


MACni 


30(1046) 


06 -APR 


-84 10:45 PAGE 37 


czir-cr . 


PU 06 'APR 84 


10; 39 












l*^^9 


















16 ?C 

167 1 
167^ 












; WRITE 


CHECK TEST********** 


010040 


000240 






FT20: 


NOP 






1675 


010042 


012737 


021114 


000610 




MOV 


<>MSFT20,EMADDR i 


SET HEADER 


1674 


010050 


012757 


001700 


000716 




MOV 


<>1700,U0ES 1 


SET UNIT DESCRIPTION 


3 6:5 


0100S6 


004757 


012442 




FT20A; 


JSR 


PC.RWNO J 


INIT AND REWIND SLAVE 


16 76 


010062 


012757 


000005 


000720 




MOV 


<^5,PATRN 




1677 


010070 


004757 


015222 






JSR 


PC.OSUP I 


GO SET PATTERN 3 


16V9 


010074 


012737 


021544 


000616 




MOV 


#WDATA,BAODR 


SET BA 


1.^7^ 


010102 


012757 


177400 


000620 




MOV 


d^400,FCNT 


SET FC 


1 6(70 


010110 


012757 


177600 


000622 




MOV 


0-2OO,UCHl 


SET WC 


1681 


010116 


012737 


000061 


000710 




MOV 


#61. FUN 


SET WRITE OP CODE 


IbH^ 


010124 


004 757 


012310 






JSR 


PC, EXEC 


GO WRITE RECORD 


1605 


010130 


012757 


017550 


000626 




MOV 


#MSG46.ERRP 


SET ERROR CODE 


lhS4 


010156 


004757 


012510 






JSR 


PC.ERCHK 


GO CfiECK ERROR 


1685 


010142 


005737 


000712 






TST 


SERFL 


SEE IF ERORR 


16«fe 


010146 


001042 








BNE 


FT20X 


IF SO: BR 


3687 


010150 


012757 


016405 


000626 




MOV 


*MSG16.ERRP 


SET REVERSE ERROR TAG 


1C;^8 


010156 


012737 


000057 


000/10 




MOV 


057. ruN 


SET REVERSE WRITE CHECK OP-COC^E 


1689 


010164 


062737 


000376 


000616 




ADD 


#376,BAD0R 


SET BA FOR REVERSE CHECK 


1640 


010172 


004 757 


012310 






JSR 


PC. EXEC 


GO DO REVERSE CHECK 


1691 


010176 


004757 


012510 






JSR 


PC.ERCHK 


GO CHECK ERROR 


169? 


010202 


012757 


016423 


000626 


FT20B: 


MOV 


W1SG17.ERRP 


SET FORWARD TAG 


1645 


010210 


012757 


000051 


000710 




MOV 


051. FUN 


SET FORWARD CHECK OP CODE 


16'->4 


010216 


162737 


000376 


000616 




SUB 


*376.BADDR 


SET BA FOR FORWARD CHECK 


1645 


010224 


004737 


012310 






JSR 


PC, EXEC 


GO DO FORWARD CH?.CK 


1606 


010230 


004737 


012510 






JSR 


PC.ERCHK 


GO CHECK ERROR 


I6^t'* 


010254 


052757 


002000 


000716 


rT20C: 


BIT 


<>2000,U0ES 


SEE IF DONE PE 


1643 


010242 


001004 








BNE 


FT20X 


IF SO: BR 


1649 


010244 


012757 


002300 


000716 




MOV 


<>2500,UDES 


ELSE SET PE 


r.'DO 


010252 


000701 








BR 


FT 20 A 


DO IN PE 


:. ^01 


010254 


004 757 


015370 




FT20X; 


JSR 


PC. ITER 


00 UeRATIONS 


l'7o^ 


010260 


000137 


003074 






JMP 


TSCD2 


[RETURN TO SCHEDULAR 



SEQ 0044 



t\'i;-':tO TM05-TF.16.' TU// BF T 
CZ'^rCK.PU Ob-APR-84 10:39 



J "04 



MACYll 50(1046) 06-APR-84 10;45 



PAGE 38 



SEQ 0045 



X ao 
: ."11 

■i ns 

). .'16 

■^ an 
1 ?;-:o 

i. /Lr^ 

. . .'n 
: "^M 

: .' u^ 

: \^6 
; ' 5 / 
■ ': ;ia 

, ■'■ vt 
:■ /o.^ 

1 .'4 5 
" /4n 

1. ■■'♦!-. 

' ' '•■){ 

' '':,,} 

17:^4 



010P64 

o:o27? 

010^76 
0J0304 
C1051C 
010316 
0103^4 

ov 1?:^ 

010:5^', 
010346 
010352 
010560 
010364 
010370 
010374 
010376 
010402 
010410 
010416 
01042? 
010424 
010430 
010436 
010444 
010452 
010460 
010464 
0104 72 
010476 
010500 
010506 
010514 
010522 
010526 
010534 
010536 
010544 
010546 
010554 
010556 
010564 
nlOS66 
0105 /4 
01060c' 
010606 
010612 



012737 
004737 
012737 
004 737 
012737 
012737 
012737 
012737 
012737 
004737 
012737 
004737 
004737 
004737 
000240 
004737 
012737 
012737 
004737 
000240 
004 737 
012737 
012737 
012737 
012737 
004737 
012737 
004737 
000240 
052777 
012737 
012737 
004737 
0?2777 
001424 
022777 
001420 
022777 
101404 
012737 
000403 
012737 
012737 
004737 
004 737 
000157 



021145 
012442 
000003 
013222 
021544 
176340 
177160 
001700 
000061 
012310 
016225 
012510 
012310 
012510 

012442 
177160 
177470 
012310 

012442 
023256 
177160 
177470 
000071 
012310 
016270 
012510 

000010 
176340 
177160 
012310 
001440 

001441 

001440 

017243 

C17273 
010422 
004054 
015370 
003074 



000610 

000720 

000616 
000620 
000622 
000716 
000710 

000626 



000620 
000622 



000616 
000620 
000622 
000710 

000626 



1/0012 
000620 
000622 

167762 

167752 

167742 

000650 

000650 
00Q674 



jERASE HEAD TEST***** 



F-T21! MOV 

FT21A: JSR 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
JSR 
JSR 
JSR 
NOP 
JSR 
MOV 
MOV 
JSR 

FT21SCP:N0P 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
JSR 
NOP 
BIS 
MOV 
MOV 
JSR 
CMP 
BEQ 
CMP 
BEQ 

1 $ : CMP 
BLOS 
MOV 
BR 

FT21B: MOV 

rT2lC: MOV 
JSR 

FT21XI JSR 
JMP 



^MSFT2l,EMAD0R 

PC.RWND 

OS.PATRN 

PC.DSOP 

OUOATA.BADOR 

*-800. .FCNT 

*-400. .WCNT 

*1700.U0ES 

<>61.rUN 

PC. EXEC 

^SG12.ERRP 

PCERCHK 

PC.EXEC 

PCERCHK 

PC. RUNG 
*-400. .FCNT 
*-200. .WCNT 
PC.EXEC 

PC.RWND 
*RDATA.BADDR 
*-400. .FCNT 
0-200. .WCNT 
071.FUN 
PC.EXEC 
*MSG14.ERRP 
PCERCHK 

*io.acs 

0-800, .FCNT 
400. .WCNT 
PC.fcXEC 

0800. .S)*C 

FT21X 

0801. .»C 
FT21X 

0800 . . arc 

FT21B 

0MSG44.FRADD 

FT21C 

OMSG45.tRAD0 

Of T.nSCP.SCOLP 

PC^T5tR 

PC I TEH 

Tscoa 



SET TEST HEADER 
GO REWIND 

GO SET PATTERN 3 

SET BA-WRITE BUFFER 

SET FC-800(10) 

SET WC-400(10) 

SET NRZ. NORMAL 

SET WRITE OP-CODE 

GO DO WRITE 1 

SET ERROR CODE 

GO CHECK FOn F.RROR 

YES DO WRITE 2 

YES CHECK FOR ERROR 



GO REWIND 
SE^ FC-400(10) 
SET WC-200(10) 
GO REWRITE RECORD 



1 -WH TO EH 



REWIND 

SET BA-REAO BUFFER 

SFT FC-400 

SET WC-200 

SET READ OP -CODE 

GO READ RECORD 1 

SET ERROR CODE 

GO CHECK FOR ERROR 

INHIBIT BA INCREMENT 

SET FC-flOOC 10) 

SET WC-400( 10) 

GO READ RECORD 2 

SEE IK READ RFCORO 2 OK 

K SO: BR 

BRANCH IF IN GREH AREA 

BRANCH IF ERASE HEAD REVERSED 

IF SO: BR 

SET ERASE HEAD INOPERATIVf ERROR CODE 

SET ERASE HEAD REVERSED ERROR CODE 

SET SCOPE ADDRESS 

GO PRINT ERROR 
iGO SEt IF ITFRATION 
1 RE TURN TO bCHEDUUAR 



-14 



/If n 


TM05-Tt Ib/TU// 


Bf T 


MACYll 


30(1046) 


06 -APR 


-84 10:45 PAGE 


39 


*"!fr(> . 


PU 06-APR-84 


10:39 












1 ''i ' 












iBUFFtREO COMMAND TEST***** 


1 V^J^ 


010616 


012737 


021174 


000610 


FT22! 


MOV 


*MSFT22,EMAD0R 


iSET TEST HEADER 


y S'i 


0106^4 


004 737 


012442 






J5R 


PC.RUNO 


iGO REWIND 


] .'(;U 


010630 


012700 


000003 






MOV 


*3,R0 


iSET NUMBER OF WRITES 


3 761 


010654 


012737 


001700 


000716 




MOV 


*1700,U0FS 


(SET TO NRZ NORMAL 


1 70^ 


0106^2 


012737 


021544 


000616 




MOV 


OWDATA.BADDR 


I SET BA-WRITE BUFFER 


1 /lk^ 


010650 


012737 


177000 


000620 




MOV 


* 1000. FCNT 


iSET FC-IOOO 


] 76'\ 


010656 


012737 


177400 


000622 




MOV 


<>-400.WCNT 


iSET WC-400 


1 7 A':, 


010664 


012/37 


000061 


000710 




MOV 


*61,FUN 


(SET WRITE OP-CODE 


1 '6t> 


010672 


004 757 


012310 




FT22A: 


JSR 


PC. EXEC 


(GO DO WRITE 


. /o / 


010676 


005300 








DEC 


RO 


:SEE IF DONE ALL 


\ /fe8 


010700 


U01374 








BNE 


FT22A 


I IF NOT: BR 


.1. ' tV^ 


010702 


000240 








NOP 






., 7 70 


010704 


012777 


000007 


16/576 




MOV 


07,aCl 


iSTART REWIND 


] ; ' 1 


010712 


052777 


000200 


167602 


FT22B: 


BIT 


#200,805 




1.'^^ 


010720 


001774 








BEQ 


FT22B 




w/^ 


010722 


004 737 


013540 






JSR 


PC.INITl 


lINITIALTZE 


j . .M 


010726 


012737 


000010 


000636 




MOV 


oio.Rorox 


iSET LONG READY DELAY 


1 '/b 


010 734 


004 73/ 


012310 






JSR 


PC. EXEC 


1 ISSUE BUFFERED WRITE 


1 ,^ 7f> 


010740 


000240 








NOP 






1 V W 


010742 


012737 


017446 


000626 




MOV 


*MSG49,ERRP 


tSET ERROR CODE 


■ ^/8 


010/50 


012737 


102500 


000660 




MOV 


*102300,STMS1< 


jMARK DATA ERROR 


i ??^ 


010756 


004737 


012510 






JSR 


PC.ERCHK 


(GO CHECK ERROR 


1 'c^O 


010762 


032777 


000002 


167532 




BIT 


#2.805 


tSEE IF BOT IS SET 


1 ?.Ht 


010770 


001410 








BtO 


FT22X 


J IF NOT: BR 


1 78? 


010772 


012737 


017474 


000650 




MOV 


#MSG50.ERADD 


I SET ERROR CODE 


17f*? 


011000 


012737 


010616 


000674 




MOV 


#FT22,SCCLP 




17H.* 


OU006 


004737 


004054 






JSR 


PC.FT5ER 


iGO DO ERROR 


1. /HS 


011012 


004737 


013370 




FT22X1 


J5R 


PC. ITER 


iGO SEE IF ITERATION 


1 '86 
X /H ; 


011016 


000137 


003074 






JMP 


TSC02 


IRETURN TO SCHEOULAR 



















SEQ 0046 



CiTf.CI TM03-Tt 16. Til// Bf T 
U'ltC'.h'U 0b-APR-a4 10:39 



MACril 



17'X> 

■, /■! I 
174-" 
1 f^:S 

'J ^-^s 

l /*^8 

1800 
i SO i 

.IHO.'i 

leos 
laof 

liiO/ 
1H08 

lao^ 

1810 
IRII 

' SI' 
1M14 

3617 
1 f". 1 

u;:n 

-. ■^.^■' 



0110.?? 

011026 
011030 
011036 
011042 
011050 
011056 
011064 
011072 
OlllOO 
011104 
01110€> 
01111^' 
011120 
011124 
011126 
011132 
011140 
011142 
011144 
011146 
011150 
011152 
011160 
011162 
011170 
OUl.'b 
011202 
011206 
011212 
011214 
011216 
01 1224 
0U232 
011i?36 



005737 
001103 
012737 
004 737 
012737 
012737 
012737 
012/3/ 
012737 
004 737 
000240 
004 737 
012737 
004 737 
005000 
012703 
052 7/7 
001404 
005300 
001372 
005303 
001570 
032777 
001010 
012737 
012737 
004 73/ 
012701 
013 700 
02OU0 
001410 
012737 
012737 
004 73/ 
000137 



000614 

021231 
013540 
001700 
021544 
177400 
1 / 7600 
000061 
012310 

013540 
000021 
012310 

000004 
020000 



000002 

017532 
011022 
004054 
141000 
000542 



017566 
011022 
003564 
0050V4 



000610 

000716 
000616 
000620 
000622 
000710 



000710 



0006 V>0 
00067* 



000650 
000674 







/. 
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I READ 


IN PREStfT TEST****-* 






rT23i 


TST 


5LVN 1 


SEE IF SLAVE SEl ECT-O 






BNE 


FT23X 1 


IF NOT: BR 






MOV 


#MSFT23,EMADDR i 


SET TEST HEADER 






JSR 


PC.INITl 1 


GO INIT 






MOV 


01700, U0E5 t 


SET TO NRZ NORMAL 






MOV 


*>U0ATA.BADDR j 


SET BA-WRITE BUFFER 






MOV 


*-400,FCNT ) 


SET FC-400 






MOV 


200,WCNT 


SET WC-200 






MOV 


#61, FUN 


SET WRITE OP -CODE 






JSR 


PC, EXEC 


GO DO URITE 






NOP 










JSR 


PC.INITl 


INITIALIZF 






MOV 


021. FUN 


SET READ -IN PRESET UP 


CODE 




JSR 


PC. EXEC 


GO 00 COMMAND 






CLR 


RO 








MOV 


04. R3 


SET MULT 




FT23A: 


BIT 


020000, 5)DS 


SEE IF PIP RE5FT 






BEQ 


FT23B 


IF SO: BR 






DEC 


RO 








BNE 


FT23A 


AWAIT PIP RESET 






DEC 


R3 








BNE 


FT23A 


DELAt 




FT23B: 


BIT 


02, SOS 


SEE ir BOT 






BNE 


FT23C 


IF SO: BR 






MOV 


OM5G51.ERA0D 


SET ERROR CODE 






MOV 


0FT23.SC0LP 








JSR 


PC.FT5ER 


GO 00 ERROR 




1230: 


MOV 


0141000.R1 


SET EXPT TC 






MOV 


TC.RO 


SET TC ADDRESS 






CMP 


Rl.(RO) 


SEE U bvPT-RCVD 






BEQ 


rT23X 


IF SO: BR 






MOV 


0MSG52,ERADD 


SET tRROR CODF 






MOV 


Of T23.SCGI.P 


CLEAR SCOPF AODRFSS 






JSR 


PC.^ T2tR 


K>0 00 ERROR 




FT25X: 


JMP 


T5CD2 


jHETURN TO SCHEDULAH 





SEQ 004 7 



l^L'ft 



C/Tb.CfO 1M05-Tt 16/ TU// Bf T 
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MACYll 30(1046) 06 APR -84 l0!4b 



J 4 

PAGt 41 



ShQ 004a 



i3:'.o 

16." 

lH4r' 

Lo*i6 

: S'l 
ie;4'^ 

1 M'lO 

uv 

16S8 



01K^4.? 

on 250 

01U"»54 

ou:-^6? 

OllPfjo 

om;^>'1 

^' 11,^0,-: 
011510 
0113L6 
0115P4 
r.'li:'20 
0115-'6 
011.^^'2 
011i«.6 

oiis:-^ 

01l3tj-» 
01156^ 
OU570 
OU376 
01140? 
011410 
0U41^ 
0U4?0 
0^]4^4 
011430 



012737 
004 737 
012737 
004 737 

012737 
012737 
012737 
012737 
012737 
004737 
012737 
00'V7J7 
00^/5.7 
001026 
004 -.V^ 
01.'/5/ 
Oir.'/ir 
01. J 737 
Of)-' /3 / 
032/7/ 
001405 
012757 
004 7 57 
004757 
000137 



021264 
012442 
000001 
013222 
021544 
177400 
177600 
001700 
000061 
012310 
017350 
012510 
000712 



012442 
025256 
002300 

000071 
012510 
000040 

020121 
004 0S4 
015^:70 
003074 



000610 

000720 

000616 
000620 
000622 
000716 
000710 

000626 



000616 
000/16 
000710 

167112 

OOOfabO 



;AUT0 DENSITY ijELtCT TEST: WRITE -NRZ, READ-PF 



fT24: MOV 
JSR 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
JSR 
TST 
BNt 
JSR 
MOV 
MOV 
MOV 
JSR 
BIT 
BtQ 
MOV 
JSR 
JSR 
JMP 



FT24Xi 



^MSH24.EMADDR 

PC.RWNO 

dl,PATRN 

PC.DSUP 

OUDATA^BADDR 

*-400.FCNT 

0-200.WCNT 

*1700,U0ES 

<^61.F'UN 

PC, EXEC 

<^SG46.ERRP 

PC.ERCHK 

SERFL 

FT24X 

PC.RWND 

ORDATA.BADDR 

«2300.U0ES 

*71,rUN 

PC. EXEC 

040, aos 

FT24X 

OMSCi65,t:RAD0 
PC,rT3FR 
PC. ITER 
TSCD2 



(SET ERROR MSG HEADER 

iREWiNO SLAVE 

iSELECT PATTERN 

jGO DO DATA SETUP 

iSET BUS ADDRESS, 

I FRAME COUNT. 

J WORD COUNT, 

1 6 SLAVE OESC • NRZ NORMAL 

I LOAD OP CODE WRITE TWO 

iGO EXECUTE COMMAND 

J SET ERROR MSG ADDRESS 

I GO CHECK ERRORS 

iBRANCH IF AN ERROR OCCURRFD 

(REWIND SLAVE 

I SET BUS ADDRESS FOR READ 

(SET SLAVE OESC - PL, NORMAL 

I SET OP CODE - READ FUD 

I GO READ RECORD 

I BRANCH ID PES BIT CLhARtU 



jGO PROCESS FRROR 
I RE TURN TU SCHEDULER 



CZUChO TM03 
CZIEC^.PU 



Ob-APR-84 10:39 



l<4 

MACYU 30(1046) 06-APR-84 10:45 PAGE A?. 



S£Q 0049 



18^0 
1861 
186.? 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
18'0 
1871 
lA/c"^ 
1873 
16/4 

18 /r> 

1876 
18/7 
IB:*? 
1879 
1880 
1881 
188P 
1885 
1884 
188^ 
1886 
1887 



011434 
011442 
011446 
0114JS4 

011460 
011466 
011474 
01150;^ 
OlltlO 
011516 
0115Pc^ 
OU530 
011534 
011540 
0US42 
011546 
011554 
011562 
011570 
0U574 
01V60? 
0U604 
011612 
011616 
01 16^^ 



012737 
004737 
012737 
004 737 
012737 
012737 
012757 
012 737 
012737 
004/37 
012737 
004 737 
005737 
001026 
004737 
012737 
012757 
012737 
004737 
032777 
OOIOOS 
012757 
004 757 
004737 
000137 



021342 
012442 
000001 
013222 
021544 
177400 
17 7600 
002500 
000061 
012510 
017350 
012510 
00071? 

012442 
025256 
0017C0 
000071 
012310 
000040 

020152 
004054 
013570 
003074 



000610 
000720 

000616 

000620 
000622 
000/16 
000710 

000626 



000616 
000716 
000710 

166-^20 

000650 



:AUTO-DENSITY 
FT25: MOV 
J3R 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
JSH 
MOV 
JSR 

Tsr 

BNE 
JSR 
MOV 
MOV 
MOV 
JSR 
BIT 
BNE 
MOV 
JSR 
FT25X: JSR 
JMP 



SELECT 'ESr: WRITE 
*MSF^25.EMAD0R 
PC.RWND 
#1,PATRN 
PC.DSUP 
flWDATA.DADDR 
0-400. FCNT 
0-200. WCNT 
02300. UObS 
061,rUN 
PC. EXEC 
0MSG46,ERRP 
PC.ERCHK 
SERFL 
FT25X 
PC.RWNO 
ORDATA.BADDR 
01700, LX)E5 
071, FUN 
PC.EXFC 
040,805 
FT25X 

OMSG64.ERA0D 
PC.KT5tR 
PC, TIER 
TSCD2 



-PE.READ-NR7 

(SET ERROR MESSAGE ADDRESS 

I REWIND SLAVE 

iSELECT PATTERN 

iGO DO DATA SETUP 

(SET BUS ADDRESS 

(FRAME COUNT. 

I WORD COUNT. 

if. SLAVE ' SC - Pt .NORMAL 

I LOAD Vir^ op CODE 

iGO eXECu.. .^ITL 

iSET ERROR MSG HDR 

ibO CHECK FOR ERRORS 

iBRANCH IF tRROR OCURRtD 



iREWINO SLAVE 

jSET BUS AUDRF.SG 

tSET SL*iVE DE5C 

J SET READ FWD OP 

(GO EXECUTE 

(BRANCH ID PES BIT GOT SET 



FOR READ 

NRZ. NORMAL 
CODE 



iGO PROCESS ERROR 



(ITcRATlON 
(RETURN TO 



LOOP 
SCHEDULER 



C^TtCKO TM05-Tfcl6'TU7/ B^ T 
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SEQ 0050 



1890 










1891 










189a 


011626 


000240 






1895 


011630 


012737 


021420 


000610 


1894 


011636 


012737 


001700 


0007ir. 


1895 


0U644 


004 737 


012442 




1896 


011650 


012737 


000027 


000710 


1897 


011656 


004 737 


012310 




1898 


011662 


005057 


000660 




1899 


011666 


012757 


016315 


000626 


1900 


011674 


004757 


012510 




1901 


011700 


004757 


013164 




190P 


011704 


005737 


000712 




1903 


011710 


001061 






1904 


011712 


004757 


012310 




1905 


011716 


012737 


016356 


000626 


1906 


011724 


004 737 


012510 




1907 


011730 


004737 


015164 




1908 


011754 


005737 


000712 




1909 


011740 


001045 






1910 


0U742 


004757 


012442 




1911 


011746 


012737 


000051 


000710 


1912 


011754 


012737 


177777 


000642 


1913 


011762 


004757 


012310 




19V; 


011766 


012737 


017574 


000626 


1915 


011774 


004 75/ 


012510 




19i6 


012000 


004757 


013164 




1917 


012004 


005757 


000712 




1918 


012010 


001021 






1919 


012012 


004737 


012510 




19?0 


012016 


004757 


012510 




1921 


012022 


004757 


015164 




1922 


012026 


005757 


000712 




1925 


012052 


001010 






1924 


012054 


052757 


002000 


00071 


1925 


012042 


001004 






1926 


012044 


01275/ 


002500 


000716 


1927 


012052 


000674 






1928 


012054 


004 737 


015570 




1929 


012060 


000137 


003074 





rT26 



1«: 



!*»B SEQUENTIAL TAPE MARK TEST 



FT26Xi 



NOP 




MOV 


*MSM26.EMADUR i 


MOV 


ftl700,U0ES I 


J5R 


PC.RWNO 1 


MOV 


<>27,ruN 1 


JSR 


PC. EXEC } 


CLR 


STMSK ( 


MOV 


*MSG15.ERRP I 


JSR 


PC.ERCHK I 


JSR 


PC.TMCHK I 


TSf 


SERFL t 


BNE 


ET26X 


JSR 


PC.EXEC ( 


MOV 


^SGISA.ERRP I 


JSR 


PC.ERCHK I 


JSR 


PC.TMCHK 


TST 


SERFL t 


BNE 


FT26X 


JSR 


PC.RWNO I 


MOV 


03l,f\JU I 


MOV 


0-l.SCNT I 


JSR 


PC. EXEC I 


MOV 


OMSG4 7.ERRP i 


JSR 


PC.ERCHK ; 


JSR 


PC.TMCHK I 


TST 


SERFL J 


BNE 


rT26X 


JSR 


PC. EXEC i 


JSR 


PC.ERCHK ) 


JbR 


PC.TMCHK I 


TST 


SERFL i 


BNE 


FT26X 


BIT 


fl2000,UDES t 


BNE 


FT26X 


MOV 


02300. UDES i 


BR 


\i 


JSR 


PC, ITER 


JMP 


TUCD2 



SET 

SET NRZ 

REWIND SLAVE 

SET WRITE TAPE MARK FUNCTION CODE 

GO 00 TAPE MARK 

CLEAR EXPECTED ERROR MASK 

SET ERROR MESSAGE 

bO CHECK FOR ERRORS 

GO CHECK FOR TAPE MARK 

EXIT TEST IF ERROR DFTECTED 

WRITE SECOND TAPE MARK 
SET ERROR MESSAGE 
GO CHECK ERROR 

EXIT TEST IF ERROR DETECTED 

REWIND 

SET SPACE FORWARD OP CODE 

SET OF RECORDS TO SPACE 

GO SPACE FORWARD 

SET 5PACE FORWARD ERROR 

GO CHECK ERROR BITS 

GO CHECK IF TAPE MARK DETECTED 

EXIT TEST IF ERROR DETECTED 

SPACE TO SECOND TAPE MARK 
GO CHECK ERROR BITS 
CHECK IF TAPE MARK DETLCTl.D 
FXIT TEST IF ERROR DETECTED 

(EXIT TEST IK PE COMPLETED 

iSET Pt MODE 



M4 



C;.'Tt.C^■0 TM05-Ttl6/TU// BF T 
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S£Q 0051 



i9.n 

193.^ 
1955 
1934 
1935 
1936 

193 V 
1938 
1939 
1940 
1941 
194? 

194 5 
1944 
1945 
1946 
194 7 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
195/ 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
196S 
1966 
1967 
1968 
1969 



012064 

012072 

012074 

012100 

012102 

012110 

012114 

012122 

012126 

012134 

012142 

012150 

012156 

012164 

012170 

012174 

012202 

012206 

012212 

012214 

012216 

012220 

012222 

012224 

012232 

012234 

012242 

012246 

012250 

012254 

012256 

012260 

012262 

012270 

012274 

012300 

012304 



032777 

001104 

005737 

001101 

012737 

004 737 

012737 

004737 

012737 

012737 

012737 

012737 

012737 

004737 

004737 

012777 

005037 

012700 

005001 

005301 

001376 

005300 

001373 

032777 

001406 

012737 

004737 

000412 

013700 

005001 

020110 

001405 

012757 

004/37 

012704 

004737 

000137 



001662 

021461 
012442 
000001 
013222 
021544 
177400 
177600 
001700 
000061 
012310 
013540 
000003 
000674 
000042 



010000 

017605 
004054 

000524 



020206 
003564 
017632 
014414 

003074 



000610 

000720 

000616 
000620 
000622 
000716 
000710 

166306 



166270 
000650 



iREWIND: OrF LINE TEST***** 



010000 166456 FT27: 



0006^0 



BIT 
8NF 
TST 
BNE 
MOV 
JSR 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
JSR 
MOV 
CLR 
MOV 

1$: CLR 

2$: DEC 

BNE 
DEC 
BNE 
BIT 
BEQ 
MOV 
JSR 
BR 

3$: MOV 

CLR 
CMP 
BEQ 
MOV 
JSR 

FT37X: MOV 
JSR 

FT27XX: JMP 



^10000. aswR 

FT27XX 

CHNFLG 

FT27XX 

^SFT27.EHADDR 

PC.RWND 

^l.PATRN 

PC.DSUP 

OUDATA.BAOOR 

»-400.FCNT 

^-200.WCNT 

*170O.U0ES 

<>61.FUN 

PC, EXEC 

PC.INITl 

*3,QC1 

SCOLP 

^42. RO 

Rl 

Rl 

2i 

RO 

1* 

<M00OO,aos 

3$ 

^SG53.ERADD 
PC,FT3ER 

FT27X 

ER.RO 

Rl 

Rl.(RO) 

FT27X 

*MSG6 7.ERADD 

PC.rT2ER 

i?nGGj4,K4 

PC. T TOUT 

TSC02 



SEE IE IN CONTINUOUS MODE 

IF SO' BR 

BRANCH IF CHAIN MODE 

SET TEST HEADER 

REWIND 6 SELECT SLAVE 

SELECT PATTERN (ALL I'S) 

FILL WRITE BUFFER 

SET WRITE BUFFER BUS ADDRESS 

SET FRAME COUNT 

SET WORD COUNT 

SET UNIT DESCRIPTION - mZ 

SET WRITE COMMAND 

GO WRITE A RECORD 

♦*B CLEAR ANY ERROR BITS 

ISSUE REWIND: OFF LINE COMMAND 

CLEAR SCOPE LOOP 

CLEAR TIMER 

IF NOT TIMED OUT: BR 

IF NOT ALL TIMED OUT; BR 

SEE IF MOL IS RESET 

IF SO: BR 

SET ERROR CODE 

GO DO ERROR 

GET ADDRESS OF ERROR Rt"(i 
RESUT SHOULD BE O 
BRANCH IF ERROR REG - 

SET ERROR MSG HEADFR 
GO UrC ERWUH 

PRINT ON LINE RtQUeST 
RETURN TO SCHEDULER 
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PAGE 4? -3 



StQ 0Db2 



19/1 


















197*^ 
1973 
1974 












{COMMAND EXECUTE 


SUBROUTINE***** 


01P310 


000240 






EXEC: 


NOP 






1975 


012312 


053777 


000716 


166222 




BIS 


UOES.STC 


iLOAD TAPE CONT 


1976 


012320 


013777 


OD0622 


166164 




MOV 


WCNT.aWC 


I LOAD WC 


1977 


012326 


013777 


00062r 


166162 




MOV 


rCNT.SFC 


{LOAD EC 


1978 


012334 


013777 


00063 o 


166152 




MOV 


BADOR.fi»BA 


;L0AD BA 


1979 


012342 


022737 


000C31 


000710 




CMP 


tf31,rUN 


(SEE IF SPACE FORWARD 


1930 


012350 


001404 








BEQ 


EXECA 


:IF SO: BR 


1981 


012352 


022737 


0J0O33 


000710 




CMP 


*33,rUN 


J SEE IF SPACE REVERSE 


1982 


012560 


001003 








BNE 


EXECB 


(IF NOT: BR 


198? 


012362 


013777 


000642 


166126 


EXECA: 


MOV 


scNT.arc 


I SET SPACE COUNT 


1984 


012370 


000240 






EXECB: 


NOP 






1985 


012372 


013777 


000710 


166110 




MOV 


FUN.aCl 


;LOAO OP -CODE f GO 


1986 


012400 


000240 








NOP 






1987 


012402 


013705 


000636 






MOV 


RDY0X,R5 


{SET DELAY 


1988 


012406 


005004 








CLR 


R4 




1989 


012410 


032777 


000200 


166104 


EXECC: 


BIT 


*200.fi)0S 


I SEE IF DRY 


1990 


012416 


001004 








BNE 


EXECX 


tIF SO: BR 


1991 


012420 


005304 








DEC 


R4 




1992 


012422 


001372 








BNE 


EXECC 




1995 


012424 


005303 








DEC 


R3 


jDELAY FOR DRY 


1994 


012426 


001370 








BNE 


EXECC 




1995 


012430 


015703 


000640 




EXECX; 


MOV 


0P0YX.R3 




1996 


012434 


005305 






EXFCXA: 


DEC 


R3 


I DEL A) 


199/ 


012436 


0013/6 








BNE 


extcxA 




1998 


012440 


000207 






EXECXX: 


RTS 


PC 


;RETURN TO CALLER 


1999 



















C/TECKO TM03-Ttl6 TU/T BM MACYU 
CZTECK.PU 06-APR-e4 10:39 



^OOi 










.^OOr^ 










2005 


012442 


004737 


015540 




2004 


012446 


012777 


000007 


166054 


2005 


012454 


032777 


000002 


166040 


2006 


012462 


001774 






2007 


012464 


032777 


020000 


166030 


2006 


012472 


001574 






200*> 


012474 


105777 


166022 




2010 


012500 


1005 75 






2011 


012502 


004 757 


013540 




2012 


012506 


00C207 






2013 











30(1046) 


06 APR 


-84 10i45 




iRtUIND 


SUBROUTINE: 


RWNDt 


JSR 


PC.INITI 




MOV 


07, SCI 


U: 


BIT 


*2,80S 




BEQ 


U 


2$: 


BIT 


020000 » SOS 




6ME 


2t 


3$! 


TSTB 


SOS 




BPl 


5» 




JSR 


PC.INITI 




RTS 


PC 



PAGE 



43 



iINIT SLAVE 

iSTART REWIND 

IWAIT ron BOT TO SET 

IWAIT FOR PIP TO CLEAR 

».»B WAIT rOR DRY 
I • -B 

1 INIT 

iRETURN TO CALLER 



SEQ 0053 



C) 



C/Tt.CU^ 


TM03Tt 16 ni;.' 


Bf T 


MACYll 


50(1046) 


06 -APR 


-84 10:45 PAGE 44 


C/TF.CK. 


hMl Ob -APR -84 


10!39 












00 IS 
0016 

001 : 












t ; RROR 


CHECK SUBROUTINE***** 


012510 


005037 


000710 




ERCHK ; 


CLR 


SERFL i 


CLEAR FLAG 


0018 


012514 


017737 


166002 


000664 




MOV 


9DS.0SAV 1 


SAVE DRIVE STATUS REGISTER 


0019 


010520 


032777 


040000 


165770 




BIT 


*40000 , SOS 1 


SEE If ERROR 


2000 


012530 


001021 








BNE 


ERPT I 


If SO: BR 


0001 


012530 


022777 


006576 


166146 




CMP 


fffTlS.SLTADn 1 


iCHECK FOR TEST 15 


0000 


010540 


001404 








BEQ 


11 1 


iBRANCH If TEST 15 


0005 


010540 


022777 


007210 


166136 




CMP 


Of T16,SLTA0D i 


iCHECK fOR TEST 16 


0004 


010550 


001010 








BNE 


2« 1 


iBRANCH If NOT TEST 16 


0005 


012552 


030777 


100000 


165740 


li: 


BIT 


*iooooo,aDs 1 


(TEST fOR ATA 


0006 


012560 


001004 








BNE 


2« 1 


lEXIT If ATA IS SET 


000 7 


012560 


010737 


020510 


000626 




MOV 


<>MSG71,ERRP I 


iSET UP ERROR CODE 


oooa 


012570 


000434 








BR 


ERPTG 1 


|G0 REPORT ERROR 


0009 


012572 


00020 7 






2$: 


RTS 


PC 1 


RETURN 


0050 


012S74 


017704 


165724 




ERPT; 


MOV 


SER.R4 ] 


GET ERROR REGISTER 


2051 


012600 


032737 


002000 


000716 




BIT 


#2000. UOES 1 


SEE If PE 


0050 


012606 


001403 








BEQ 


U 


If SO: BR 


0055 


010610 


042737 


000200 


000660 




BIC 


*200,STMSK 


RESET PEf MASK 


0034 


012616 


022757 


000005 


000 740 


1$! 


CMP 


03. JUMPER 


*TE5T fOR NON- STANDARD JUMPER 


0035 


012624 


001413 








BEQ 


ERPTAl 


•BRANCH If STANDARD 


0036 


012626 


022777 


011042 


166050 




CMP 


Of T24,aLTA0D 


*CHECK fOR TEST 04 


0037 


012634 


001404 








BEQ 


21 


•BRANCH If TST24 


0038 


012636 


022777 


01l4ii4 


166042 




CMP 


OfT25.BLTA0D 


•CHECK fOH TEST 05 


0039 


012644 


'001003 








BNE 


ERPTAl 




0040 


012646 


052737 


020000 


000660 


2»: 


BIS 


•20000, STMSK 


•SET DPI BIT IN ERROR MASK 


2041 


012654 


043704 


000660 




ERPTMl: 


BIC 


STMSK,H4 


MASK DONT CARE BITS 


004? 


012660 


001536 








BEQ 


ERPTX 


If NO UNEXPECTED ERRORS: BR 


2043 


012662 


012737 


OOOOOl 


000712 


ERPTG: 


MOV 


Ol.SERfl 


SET fLAG 


0044 


012670 


052777 


020000 


165652 




BIT 


020000, SSWR 


SEE If SMOtJLD PRINT ERRORS 


0045 


012676 


001125 








BNE 


ERPTD 


If NOT: BR 


0046 


012700 


005737 


000606 






1ST 


HORfL 


SEE If DONE HEADER 


204 7 


012704 


001006 








BNE 


ERPTA 


If SO: BR 


2048 


012706 


005257 


000606 






INC 


HORfL 


SET HEADER FLAG 


2049 


012712 


013704 


000610 






MOV 


EMA0DR,R4 




0050 


010716 


0O4737 


0144U 






JSR 


PC. T TOUT 


PRINT HEADER 


0051 


012722 


013704 


000606 




ERPtA: 


MOV 


ERRP.R4 


G^T ERROR CODE 


0050 


012726 


001414 








BEQ 


ERPTB 


If NONE: BR 


0053 


012730 


004737 


014414 






jsr^ 


PC.TTOUT 


[PRINT ERROR CODE 


0054 


012 754 


0127O4 


016443 






MOV 


0M5G20,R4 


SET NRZ TAG 


0055 


012740 


032777 


002000 


165574 




BIT 


02000, OTC 


iSEE IF PE 


0056 


012746 


001402 








BEQ 


ERPTIA 


I If NOT: BR 


00^.7 


012750 


012704 


016451 






MOV 


OMSG21,R4 


(ELSE SET PE TAG 


0058 


012754 


004737 


014414 




ERPTIA; 


J5R 


PC.TTOUT 


(PRINT TAG 


0059 


012760 


013/04 


000630 




ERPTB: 


MOV 


FRRP1,R4 


iSEE IF CODE 2 


0060 


012764 


OO1400 








BeQ 


t-RPTBl 


llf NOT: BR 


0061 


012766 


0O4757 


014414 






JSR 


PC.TTOUT 


(PRINT CODE 


OOoO 


012772 


032777 


004000 


165550 


tRPTBl! 


BIT 


04000. OSWR 


(SEE If ITERATION 


0065 


013000 


001010 








BNE 


ERPTC 


(IF NOT: BR 


0064 


013000 


010704 


01/7/fc 






MOV 


0MSG56.R4 




0065 


13006 


004757 


014414 






JSR 


PC.TT0'.'T 


(PRINT ITER TAG 


0066 


01301? 


015/05 


000660 






MOV 


ITCNT,R5 




00^. .' 


015016 


00475? 


014630 






JSW 


PC.OCTP 


(PRINT ITERATION 


00*58 


01 3000 


010 704 


015400 




fcRPTC: 


MOV 


0MSG1.R4 




oo^/-* 


015006 


004/5 7 


014414 






JSR 


PC.TTOUT 


(PRINT REGISTER TAG 


0070 


Olio 30 


0X7/03 


165450 






MOV 


«C1,R3 





SEQ 0054 






Ot>-APR 94 10; 59 



MACm 5011046) 06 APR -04 



10:4b PAGE 44-1 



..\ ' « 

.\V4 

:-'o:6 
JO : • 

JO ;^ 
joeo 
Joei 

J08J 
JOG 5 

Joy's 

joat- 

JOttft 

joe*^ 

J090 
2091 
c09J 
209? 
3094 
..'^95 
i?096 



015056 
015O4J 
015046 
01 505 J 
0150S6 
01506J 
015066 
0150 7J 
0150 :*6 
01510J 
015106 
015110 
015114 
015116 
0151J? 
015126 
015132 
015156 
015142 
015146 
015152 
0151S4 
015156 
01516^ 



004 757 
017705 
004757 
0177C5 
004757 
017705 
00475 7 
017705 
004 757 
0057.^7 
001405 
015705 
000402 
017705 
004757 
0i7705 
004757 
017705 
004757 
005777 
100001 
000000 
004757 
000207 



014616 
165444 
014616 
165456 
014616 
165450 
0l461h 
165422 
r»i4616 
00 M06 

000b52 

165400 
014616 
165572 
014616 
165400 
014616 
165576 



013540 



It: 
PJ: 



ERPTD: 



ERPTX: 



JSR 

MOV 

JSR 

MOV 

JSR 

MOV 

JSR 

MOV 

JSR 

TST 

BEQ 

MOV 

BR 

MOV 

JSR 

MOV 

JSR 

MOV 

JSR 

TST 

BPL 

HALT 

JSR 



ShQ 0055 



tRPTXXt RTS 



PC.o "^:"'^ 

QWC..O 

PC.OrVPE 

PC.OCTPE 

QrC,R5 

PC.OCTPF. 

SCS.R5 

PC.OCTPE 

TAG 

1» 

TtMPl.RS 

2i 

aos.R3 
PCocTPt: 

0ER.R5 
PC.OCTPE 
aTC,R5 
PC.OCTPE 

asuR 

ERPTX 

PC.INITl 
PC 



tPRXNT CSl 
(PRINT WC 
I'^RINi BA 

(PRINT rc 

(PRINT CS2 

I»»C CHECK EOR SPECIAL DS 

M»C PRINT DS READ INTO TEMPI AT CRITICAL TIME 

jPRINT DS 

iPRINT ER 

iPRINT TC 

(SEE IF HALT ON ERROR 

I IF NOT: BR 

lINIT 
J RE TURN 



E:^ 



c:nxi 


1M05U 16 Tu// 


Uf 1 


MrtCYU 50(1046) 


06 APR 84 10:45 PAGE 


45 


C2TECK. 


PI I Ob-APR-84 


I0i39 










2099 

2100 










I TAPE 


MARK STATUS CHECK 


*i*i|L4>***4i** 


013164 


052757 


000004 


000664 TMCHK: 


BIT 


^4,D5AV 


(BRANCH IF TM SET 


2101 


013172 


001012 






BNF. 


li 




2102 


013174 


005757 


000712 




TST 


StRFL 


I SEE IF HAD ERROR 


210? 


013200 


001007 






BNE 


11 


lir SO; BR 


2104 


013202 


012757 


020006 


000630 


MOV 


<MiSG57,ERRPl 


iSET ERROR CODE 2 


2iori 


013210 


004 757 


012:-.62 




JSR 


PC.ERPTG 


iGO PRINT TM ERROR 


2106 


013214 


005037 


000630 




CLR 


ERRPl 


J CLEAR CODE 2 FLAG 


2107 
2108 
2109 


015220 


000207 




1$: 


RTS 


PC 


1 RE TURN 










(DATA 


SETUP ROUTINE********** 


2110 
















2111 


013222 


000240 




DSUP: 


NOP 






2112 


013224 


012705 


021544 


DSO: 


MOV 


<>W0ATA.R5 


»R5 - AD0R5 OF WRITE BUFFt^ 


2115 


013230 


015701 


00:720 




MOV 


PATRN.Rl 


tRl • PATTERN SELECTOR 


2114 


013254 


006501 






ASL 


Rl 


iMAKE PATTERN SELECTOR EVF. 'J 


2115 


015256 


00477V 


000744 




jsr» 


PC.SDATBLCRl) 


(GO GENERATE PATTERN 


2116 


013242 


012 702 


000640 




MOV 


*640.R2 


iR2-BUrFER SIZE ^2 


2117 


015246 


012701 


02i256 




MOV 


OROATA.Rl 


iRl-READ DATA START 


2118 


015252 


005021 




1*: 


CLR 


(RD* 


(CLEAR BUFFER 


2119 


015254 


005502 






DFX 


R2 


»SEE IF DONE ALL 


2120 


013256 


001575 






BNE 


li 


(IF NOT; BR 


2121 
2122 
2123 


015260 


000207 






RTS 


PC 


(EXIT 










I ALL 


ONES********** 




2124 
















2i2r> 


015262 


012701 


1777/7 


DATl: 


MOV 


0-1. Rl 


tRl-OATA 


2126 


013266 


012702 


000640 


DATIA; 


MOV 


0640.R2 


iR2-W0RD COUNT ^2 


2127 


013?72 


010123 




U: 


MOV 


R1,(R3)* 


(LOAD BUFFER 


2128 


0132 74 


005502 






DEC 


R2 


(SEE U DONE 


2129 


013276 


OC1375 






BNE 


1$ 


(IF NOT! BR 


2130 


013300 


000207 






RTS 


PC 




2131 
















2132 










iALL 


ZEROS********** 




2133 
















2134 


015502 


005001 




DAT2: 


CLA 


Rl 


jRl-DATA 


2135 


013304 


000770 






BR 


OATIA 


(LOAD HUNKER 


2136 
















2137 
2138 
2139 










tONE/ZERO IN ALTERNATING CHARACTERS********** 


CI 5506 


012701 


125125 


0AT3: 


MCV 


0125125. Rl 


iRl-DATA 


2140 


015512 


000765 






RR 


UATIA 


iLOAD BUFFER 


2141 
















2142 










:AL'.. 


BITS 0-577********** 


2143 
















2144 


013314 


005001 




DAT4: 


CLR 


Rl 


(Rl-STARTING DATA 


2145 


015516 


012702 


001500 




MOV 


01500, R2 


(R2-CHARACTER COUNT 


2146 


015322 


11.0123 




lii 


MOVH 


H\,fR6)* 


(LOAD BL»FER 


214; 


013524 


105201 






INCH 


Rl 


iBLtHP DATA 


2148 


0155^6 


005502 






DFC 


R.' 


(SEE U DUNE 


2149 


013330 


0013 7/1 






ONe 


U 


(IF NOT! BR 


2150 


013332 


000207 






RTS 


PC 




2lbX 

















SEQ 0056 



_' r. 



CZTECrO TM03-TK16/TU7/ Br T 
CZTFCK.PU Ob-APR-S'i 10:59 



) 
MACYU 30(1046) 06-APR-84 lOiflS PAGE 46 



StQ 0057 



215? 










2154 










2155 










2156 










2157 










2158 


013334 


000240 






2159 


01333J 


032777 


040000 


165204 


2160 


013344 


001001 






2161 


013346 


000207 






2162 


013350 


000240 






2163 


013352 


005757 


000674 




2164 


013356 


001001 






2165 


013360 


000207 






2166 


013362 


022626 






2167 


013364 


000177 


165304 




2168 










2169 










2170 










2171 


013370 


000240 






2172 


013372 


032777 


004000 


165150 


2173 


013400 


001403 






2174 


013402 


005037 


000662 




2175 


013406 


000207 






2176 


013410 


005737 


000730 




2177 


013414 


001772 






2178 


015416 


005237 


000662 




2179 


013422 


023737 


000662 


000566 


2180 


013430 


001764 






2181 


0134 32 


005726 






2182 


0134 34 


0i;700 


165236 




2185 


013440 


000X10 






2184 










2185 










2186 










2187 










2188 










2189 


013442 


010046 






2190 


013444 


012700 


000120 




2191 


013450 


012760 


011626 


000756 


219; 


013456 


005720 






2193 


013460 


012760 


011626 


000756 


2194 










219S 


013466 


005720 






2196 


0134/0 


012760 


012064 


000756 


2197 


015476 


005720 






2198 


Ol.'SOO 


012760 


012064 


000756 


2199 


013506 


005720 






2200 


013510 


012760 


003162 


000756 


2201 


013516 


005720 






2202 


015520 


012760 


000027 


000756 


2203 


015526 


012;37 


ooooa? 


QQll^Q 


2204 


o;3^34 


012600 






220S 


015536 


oooao7 






2206 










^20/ 










2ia0ti 











jSCOPE LOOP ON ERROR SUBROUTINE********** 



SCOPE 

1$: 

2$J 

ITER: 

1*: 
2$: 



NOP 
BIT 
BNE 
RTS 
NOP 
TST 
8NF. 
RTS 
CMP 
JMP 



#40000, SSWR 

1$ 

PC 

SCOLP 

2$ 

PC 

CSP)» .(SP)» 

SSCOLP 



I SEE IF LOOP 
ilF SO: BR 
(ELSE EXIT 



ON ERROR 



(SEE IF SCOPE ADDRESS 
I IF NOT: BR 
lELSE EXIT 
jRESET STACK 
(LOOP ON ERROR 



I TEST ITERATION SUBROUTINE********** 



NOP 

BIT <>4000.SSWR 

BEQ 2J 

CLR ITCNT 

RTS PC 

TST PCNTR 

BEQ li 

INC ITCNT 

CMP ITCNT, ITAMT 

BEQ 1$ 

TST (SP). 

MOV aiTRLP.RO 

JMP CRO) 



(SEE IF ITERATIONS 

tIF SO: BR 

(CLEAR ITERATION COUNTER 

(ELSE EXIT 

(DO SaNGLE SUBTEST ITERATION 

(ON FIRST PASS 

iBUMP COUNTER 

(SEE IF DONE ALL 

J IF SO: BR 

(RESET STACK 

(SET ITERATION POINTER 

(GO ITERATE 



(NON-STANDARD JUMPER HANDLER SUBROUTINE*********** 



NOST: 



MOV 
MOV 
MOV 
TST 
MOV 

TST 
MOV 
TST 
MOV 
TST 
MOV 
TST 
MOV 
MOV 
MOV 
RTS 



RO. -(SP) : .SAVP RO 

0120. RO I tS' T UP INDEX 

0FT26.TSTThL(R0)t»ADJUST SCHEOULAR TEST TABLE 

(RO). 

#FT26.T5TTBL(R0) j fOVERLAY TEST LIST 

tRO). 

OFT27.TSTTBLCR0) 

(RO)* 

Of 12/.TSTTBLCR0) 

(R0)» 

OTfNO.TSTTBLCRO) 

CRO)» 

027,TSTTBu(RO) 

02ML.^ST 



CSP)».RO 
PC 



iRESTO RO 
IINITIALIZE SUBROUTINE********** 



CZ^ECFO TM03-Ttl6/TU77 AFT 
CZIECK.PU Ob-APR-84 10:39 



)0^ 



2214 
22A5 

22\S 
2219 



013540 
01354? 
013550 
015556 
013564 



01i56b 
0135/0 
013574 



OOOcMO 
012777 
015777 
013777 
0OOP07 



000^40 
013/16 

oooooa 



000040 
00061.? 
000614 



MACYll 30(1046) 06-APR-64 10:45 



G5 

PAGE 



164750 
164/4^ 
164 756 



INITl: 
INIT2: 



NOP 
MOV 
MOV 
MOV 
RTS 



#40.acs 

DRVN.aCS 
5LVN.STC 
PC 



46-1 



(INIT 

(SELECT DRIVE 
1 SELECT SLAVE 
» RE TURN 



SEQ 0058 



jMAG TAPE INTERRUPT HANOLER+*++*****+ 



MTINT: 



000646 



NOP 
MOV 
RTI 



RTRN.CSP) 



iRFTLWN 
{RETURN 



TO (RTRN) 



C/It CI IM0511 lb TU// Hi T 
CZTFCf",PU Ob-APR-84 10:39 



MACUl 50(1046) 06-APR-84 I0i45 



PAGE 4V 



StQ 00ii9 



-1 "> -> 1 

■* -n » 

:}^^4 

^^so 
^:^^}> 

2P54 

t2236 

2239 
2240 
2241 
2242 
224 3 
2244 



jTTY INTERRUPT HANDLER********** 



015576 
015602 
013606 
015612 
015614 
015620 
015622 
015626 
013o50 
015654 
015640 
015642 
0156S0 
CI 3652 
013660 
015664 
015670 
015674 
015700 
013704 



017746 
042716 
122716 
001010 
005/5/ 
00100^ 
00507 7 
000005 
00015 7 
122716 
001017 
02273 7 
001016 
012757 
004757 
012704 
0O4737 
004737 
122'^lo 
001006 



164 752 
000200 
000005 

001662 

164 720 

000200 
OOOOOl 

000176 000550 



TTINTi 



1$ 



177570 
015356 
020262 
014414 
015400 
000007 



000550 



2$ 



MOV 


STKB. rSP) 


BIC 


ft200,CSP) 


CMPB 


#5.CSP) 


BNE 


1$ 


TST 


CHNKLG 


BNE 


li 


CLR 


SPSU 


RESET 




JMP 


a^200 


CMPB 


tfl.CSP) 


BNE 


2» 


CMP 


ffSWREG.SWR 


BNE 


It 


MOV 


0177570, SWR 


JSR 


PC. .SAVE 


MOV 


^3070. R4 


JSR 


PC.TTOUT 


JSR 


PC. .RESTORE 


CMPB 


07. (SP) 


BNE 


4$ 



(GET CHARACTER 

(CLEAR PARIfr BIT 

I BRANCH IF NOT CONTROL C 

I INHIBIT tC IF CHAIN MODE 



J RESTART PROGRAM 
iBRANCH IF NOT fA 

i BRANCH IF HARDWARE SUH IS INVOKED 

(INVOKE HARDWARE SWR 

(SAVE REGISTERS ON THE STACK 

(TYPE 'HARDWARE SWR IN USE' 



iBRANCH IF NOT tG 



CZTtCfO TM03-Tt 16/lu;; BP T 
CZTECr.Pll Ob-APR-34 10:59 



?254 



013706 
015714 

0137CO 
0157^^ 
015726 
013730 
015756 
015740 
015744 
015746 
01575.^ 
013754 



01^757 
004737 
000414 
l.^?71fc 
001004 
IU'737 
000405 
U^a716 
00100? 
1OS057 
00!>7^6 
00000^ 



MACYll 



000550 



000176 
01S?60 

0000^3 



000377 0011^<> 

000021 

001122 









Vd 




30(1046) 


06 -APR 


-84 10:45 


PAGE 


48 


5*: 


MOV 


^SWREG.SWR 




1 INVOKE SOFTWARE SWR 




JSR 


PC.GTSUR 




iGET SWITCHES 




BR 


61 






4$: 


CMPB 


«23.(SP) 




(SEE IF tc, 




BNE 


5t 




jGRANCH IF NOT 




MOVB 


<?377.$CNTRLS 


J SET XOrr FLAG 




BR 


6i 






btt 


CMPe 


^21, (SP) 




I SEE IK tQ 




BNF 


61 




(BRANCH IF NOT 




CIRB 


iCNTRUa 






6$: 


RTI 


(SP)* 




(POP CHARACTER OFF S 
i RE TURN 



SEQ OO60 



STACK 



J'l 



C/TtCKO 


TM03 Tt lb' TU7 7 


Bf-T 


CZTbCK . 


PU Ob-APR-a4 


10 .'39 


.\"^t>0 








.\^61 








.?t:t..:' 


013736 


000240 




jat)3 


013760 


032777 


020000 


2^64 


013766 


001020 




^26^ 


015770 


00573? 


000606 


^266 


015774 


001006 




2267 


013776 


005237 


000606 


^268 


014002 


013704 


000610 


^^b*^ 


014006 


004 737 


014414 


^270 


014012 


012704 


016476 


2271 


014016 


004757 


014414 


2272 


014022 


010103 




227? 


014024 


004737 


014630 


22/4 


014050 


005777 


164514 


22 /S 


014034 


I 00001 




:^?j^ 


014036 


000000 




22/7 


01A040 


022626 




22 78 


014042 


012737 


003322 


22 ""^ 


014050 


004737 


013334 


2280 


014054 


005737 


000722 


2281 


014060 


001402 




2282 


014062 


000137 


001764 


^^^"^ 


014066 


000137 


003326 


^^84 









MACni 



164562 



000674 



30(1046) 


06/ 


^PR-e4 10:45 PAGE 4 




iBUS 


ADDRESS TRAP HANDLER 


TRAP; 


NOP 






BIT 


*20000.aSWR I 




BNE 


TRAP2 I 




TST 


HDRrL I 




BNE 


TRAPl 1 




INC 


HDRFL t 




MOV 


EMADDR.R4 




JSR 


PC.TTOUT I 


TRAPl: 


MOV 


0MSG24.R4 




JSR 


PC.TTOUT ) 




MOV 


R1.R3 1 




JSR 


PC.OCTP t 


TRAP2: 


TST 


aSUR 1 




BPL 


TRAPX I 




HALT 




TRAPX: 


CMP 


(SP)».(SP)* ( 




MOV 


^TIA.SCOLP I 




JSR 


PC, SCOPE i 




TST 


RHTF I 




BEQ 


TRAPXX J 




JMP 


STOB 1 


TRAPXXi 


JMP 


FTIB J 



SEQ 0061 



SEE IF SHOULD PRINT ERRORS 

IF NOT; BR 

SEE IF DONE HEADER 

IF SO: BR 

ELSE SET HEADER FLAG 

PRINT HEADER 

PRINT ERROR 

GET ADDRESS THAT CAUSED THE TRAP 

PRINT ADDRESS OF TRAP 

SEE IF HALT ON ERROR 

IF NOT; BR 

RESET STACK 
SET SCOPE ADDRESS 
GO SEE IF SCOPE LOOP 
SEE IF INITIAL ADDRESS TEST 
IF NOT: BR 

ELSE REDO ADDRESS REQUEST 
jRETURN TO TEST l 



CZrtCKO TM05 
CZTFCf.PU 

2;?99 

2301 

.^504 
2305 

2507 
230fl 
2309 
2310 
2311 
2312 
2315 
2314 

2316 
231/ 
2518 
2519 
25:-'0 
2321 
23^2 
2523 
2524 
2325 
2326 
232/ 
2328 
23.^9 
2350 
2551 



Ttie TU// HI 1 
06-APR-84 10;39 



MACYU 30(1046) 06 APR-84 10:45 PAGE 50 



Sf.Q 0062 



2552 
2555 
2554 
25^S 
2556 
2557 
2558 
25 59 
2 540 
^341 



014072 

014074 

014076 

014102 

014104 

014110 

014116 

014120 

014122 

014126 

0141^4 

014136 

014142 

014144 

014146 

014154 

014156 

014162 

014166 

014170 

014176 

014200 

014202 

014204 

014206 

014210 

014214 

014220 

014222 

014224 

014232 

014254 

014240 

014246 

014250 

014254 

014260 

014262 

014264 



010146 

011601 

00503 7 

005000 

004757 

122737 

001003 

000005 

00015 7 

122737 

001004 

005737 

001471 

000457 

122737 

001005 

012704 

004 737 

000742 

122737 

001012 

000241 

006000 

006200 

006200 

012 704 

004737 

005201 

000730 

122757 

101402 

00015 7 

122/57 

101002 

000137 

005257 

006500 

006500 

006500 



000652 

014352 
000003 



000200 
000015 

000652 



020204 
014414 



000060 

014^52 
000070 

014552 



000602 



TTR: 
lOS: 



IJ: 



000602 11*; 



000025 000602 2$: 

020202 
014414 

000177 000602 21$: 



000602 3 $ ! 

000602 4 % I 



rrv ENTRY SUBROUTINE: 

THIS SUBROUTINE IS USED BY THE TEST CONDITION 
ENTRY ROUTINE TO READ THE RESPONSE ENTERED 
AT THE TTY AND CHECK THEM FOR LEGALITY AND 
LIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 
(0 7) AND MUST FALL WITHIN THE LIMITS SET BY 
THE CALLING ROUTINE. 

IF AN ENTRY IS ILLEGAL OR OUTSIDE IHE LIMITS. 
A QUESTION MARK IS TYPED CV) AND THE RESPONSE 
MAY BE REENTERED. 

ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
MAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
CARRIAGE RFTLiRN 



MOV 
MOV 

CLR 

CLR 

JSR 

CMPB 

BNE 

RESET 

JMP 

CMPB 

BNE 

TST 

BFQ 

BR 

CMPB 

BNE 

MOV 

JSR 

BR 

CMPB 

BNE 

CLC 

ROR 

ASR 

ASR 

MOV 

JSR 

INC 

BR 

CMPB 

HI ns 

JMP 

CMPB 

BHI 

JMP 

INC 

ASl 

AM 

ASL 



Rl. (SP) 

(SP).Rl 

TEMPI 

RO 

PC.TTIN 

03. TIB 

11* 

80200 

015. TIB 

2J 

TEMPI 

9$ 

6( 

025. TIB 

21$ 

Ot1SG65.R4 

PC.TTOUT 

10$ 

0177, TIB 

3$ 

RO 

RO 

RO 

0MSt>6f. ,R4 

PC , TTOUT 

Rl 

1$ 

060, TIB 

4$ 

TiNtH 

070. TIB 

S» 

IINER 

TFMPl 

RO 

HO 

RO 



I SAVE CHAR COUNT ON 



iRt 

iCl 



^iTORE CHAR COUNT 



^TACK 
(FOR tu) 



^ AR FIRST CHARACTER FLAG 



»G0 READ CHARACTER 
iBRANCH IF NOT tC 

jRESET 

(RESTART 

I SEE IF CR 

tIF NOT: BR 

jSEE IF FIRST CHARACTER 

(IF SO: BR 

(ELSE GO LOAD VALUE 

(BRANCH IF NO! CONTROL 

iTiPF <CR><LF> 



U 



, RLS 1 AR T 

[branch if not RUBOUT' 

(REMOVE LAST CHARACTER 



(TYPE '\- 

(DECRENENT CHAR RECEIVED COUNT 

(GET NEXT CHARACTER 

(SEE IF CHAR IS LESS THAN 

(IF NOT: BR 

(ELSE GO TO ERROR 

[SEt IF CHAR IS GHFATcR THAN 7 

[ [F NOT: BR 

(tLSE GO TO fcHRUM 

iS^T FIRST CHARACTER FLAG 



iSHlFT 3 LEFT 



L5 



c/Ttao 


TliOS Tblb/TU/V 


BF T 


MACYll 


30(1046) 


06-APR-84 I0i45 PAGt 


50-1 


CZTECK. 


on 06 -APR -84 


10:39 












2542 


014266 


042/57 


1. //70 


000602 




BIC 


<>1/7770.T1B 


(STRIP ASCII 


2545 


014274 


055700 


000602 






BIS 


TIB.RO 


(LOAD CHARACTER 


2544 


014500 


005501 








DEC 


Rl 


(SEE IF DONE 


2545 


014302 


001300 








BNE 


15 


lIF NOT: BR 


2546 


014504 


020002 






6i: 


cnp 


R0.R2 


(SEE IF EXCEEDED MAXIMUM LIMIT 


254/ 


014306 


101402 








BLOS 


7$ 


J IF NOT: BR 


2548 


014310 


000157 


014352 






JMP 


TINER 


[ELSE GO TO ERROR 


254^ 


014314 


020500 






7$; 


CMP 


R5,R0 


(SEE IF BELOW MINIMUM LIMIT 


2550 


014316 


101402 








BLOS 


8$ 


(IF NOT: BR 


2351 


014320 


000157 


014332 






JMP 


TINER 


(ELSE GO TO ERROR 


2552 


014324 


010015 






8»i 


MOV 


RO.CRS) 


(LOAD VALUE 


2355 


014526 


005726 






9$: 


TST 


(SP)* 


(POP CHAR COUNT OFF STACK 


2554 
2555 
2556 
255' 
2558 


014530 


000207 








RTS 


PC 


(EXIT 












»TTY 


ENTRY ERROR SUBROUTINE********** 


014552 


012704 


01577/ 




TINtR: 


MOV 


0MSG7.Ri; 




2559 


014356 


004737 


014414 






JSR 


PC.TTOUi 


(PRINT? 


2560 


014542 


005726 








JSJ 


(SP)* 


(POP CHAR COUNT OFF STACK 


2561 


014344 


162716 


000020 






SUB 


*20.(SP) 


(RESET SP TO START OF VALUE RO 


2562 

2565 
2564 


014350 


000207 








RTS 


PC 


(REDO VALUE ENTRY 












iTTY 


READ SUBROUTINE********** 


2565 


















2566 


014552 


005277 


164174 




TTIN: 


INC 


QTKS 




256 7 


014556 


105777 


164170 




1$: 


TSTB 


STKS 




2568 


014362 


100575 








RPL 


IJ 




2569 


014564 


117737 


164164 


000602 




MOVB 


aiKB.TIB 




2570 


014372 


042737 


000200 


000602 




BIC 


<^200»TIB 


(STRIP PARITt BIT 


2571 


014400 


015757 


000602 


000600 




MOV 


TIB.T08 


[MOVE CHAR TO OUTPUT BFR 


2572 


014406 


004757 


014514 






JSR 


PC. TOG 


(AND TYPF IT 


2575 


014412 


000207 








RTS 


PC 




2575 












;TTY 


OUTPUT SUBROUTINE************ 


2577 


0144 14 


112437 


000600 




TTOUT: 


MOVB 


(R4)»,T0B 




2578 


014420 


122737 


000045 


000600 




CMPB 


045, TOB 




2579 


014426 


001472 








BEQ 


TEX 




2580 


014450 


122737 


000045 


000600 




CMPB 


045, TOB 




2581 


014436 


001403 








BEQ 


H 




2582 


014440 


004 757 


014514 






JSR 


PC. TGG 




2585 


014444 


000763 








BR 


TTOUr 




2584 


014446 


112757 


0C0015 


000600 


li: 


MOVB 


<^15, TOR 




2585 


014454 


004 73^ 


014514 






JSR 


PC. lOG 




2586 


014460 


012703 


000004 






MOV 


a4.R5 




258/ 


014464 


00503 / 


000600 




2$t 


CLR 


Ton 




2588 


0144 70 


004757 


014514 






JSR 


PC. roG 




2589 


014474 


005505 








DfC 


R'. 




2590 


0144/6 


001572 








BNE 


2 J 


jOO FILLERS 


2^91 


01^500 


112757 


OOOOlc^ 


000600 




MUVU 


012. TDU 




2 5^P 


014506 


004/3 7 


014514 






JSR 


PC. lOG 




2395 


014512 


000740 








UR 


TTOUT 





SEQ 0063 



ROUTINE 



C^TtaO TM05-Ttlb/TU7/ BF T 
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MS 

PAGE 53 



2395 
2396 
239/ 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
24U 



014514 
014520 
014522 
014530 
014536 
014544 
01454G 
014554 
014556 
014564 
014566 
014572 
014576 
014600 
014604 
014606 
014614 



105777 
100024 
117737 
142737 
122737 
001004 
112737 
000757 
122737 
001002 
3 05037 
105737 
100746 
105777 
100345 
115777 
000207 



164032 

164026 
000200 
000023 

000377 

000021 

001122 
001122 

163752 

000600 



SEQ 0064 



001123 
001123 
001123 

001122 

001123 2$: 

3$: 

163744 



TOG: T5TB STK5 

BPL 3$ 

MOVB &lTI<B,$CNTRLStl 

BICB i>200,$CNTRLS*l 

CMPB #23.$CNTRLS*1 

BNE 2$ 

MOVB #377.$CNTRLS 

BR TOG 

CMPB d21,$CNTRLSa 

BNE 31 

CLRB JCNTRLS 

TSra JCNTRLS 

BMI TOG 

TSTB QTPS 

BPL TOG 

MOVB TOB.aTPB 

TEX: RTS PC 



SEE ir INPUT AT KtlYBOARD 

IF SO, THEN 

MOVE CHARACTER AND 

MASK OFF PARITY BIT. 

5EF IF CHARACTER IS XQFF 

IF XOFF. THEN 

SET XQFF FLAG 

SEE IF CHARACTtR IS XON 

IF SO THEN 

CLEAR XOFF FLAG 

SEE IF IN XOFF MODE 

IF NOT THEN 

CHECK IF PRINTER READY 



I RETURN 



CZILOO TM05-Tt;i6/TU// Bf T 
CZTECK.PU 06-APR-84 10:59 



MACni 30(1046) 06-APR-84 10:45 



PAGE SP. 



S^Q 0065 



^413 










;OCTAL 


OUTPUT SUBRQUT 


I)S|E4i4L4t<^4L«444LA*4 




<'414 


















2415 


014616 


012757 


000001 015046 OCTPE: 


MOV 


tfl.OFL 






241h 


014624 


C 10304 






MOV 


R3.R4 






c"^417 


014626 


000410 






BR 


OCTPO 






2418 


014630 


005037 


015046 


OCTP: 


CLR 


OFL 


J CLEAR TLAG FOR LEADING 


ZERO 


2419 


014634 


010504 




OCTPEl: 


MOV 


R3,R4 


(SEE IF NUMBER IS ZERO 




2420 


014656 


001004 






BNE 


OCTPO 


I IF NOT ZERO: BR 




2421 


014640 


00^*757 


015026 




JSR 


PCOCTPGl 


(ELSE PRINT ZERO 




2422 


014644 


000157 


014770 




JMP 


0CTP3 


I SPACE AND EXIT 




2425 


014650 


032704 


100000 


OCTPO: 


BIT 


<^ 100000, R4 


iSEE IF M5D =» 1 




2424 


014654 


001406 






BEQ 


OCTPl 


:IF NOT: BR 




2425 


014656 


012704 


000001 




MOV 


01. R4 






2426 


014662 


004757 


015C04 




JSR 


PC. OCTPG 


iPRINT 1 




2427 


014666 


00015 7 


014 700 




JMP 


0CTP2 






2426 


014672 


005004 




OCTPl; 


CLR 


R4 






2429 


014674 


004737 


015004 




JSR 


PC. OCTPG 


(PRINT 




2450 


014 700 


010304 




0CTP2: 


MOV 


R5,R4 






2431 


014702 


006004 






ROR 


R4 






2452 


014 704 


006004 






ROR 


R4 






2455 


014706 


006004 






ROR 


R4 


IPOSITION DIGIT 




2';54 


014710 


OO60O4 






ROR 


R4 






2455 


014712 


000504 






SUAB 


R4 






2436 


014714 


004757 


015004 




JSR 


PC. OCTPG 


jPRINT DIGIT 2 




2457 


014 720 


010504 






MOV 


R5.R4 






24 58 


014722 


006004 






ROR 


R4 






2439 


014724 


000304 






SUAB 


R4 






2440 


014 726 


004757 


015004 




JSR 


PC. OCTPG 


jPRINT DIGIT 5 




2441 


014752 


010304 






MOV 


R5,R4 






2442 


014754 


006104 






ROL 


R4 






244 5 


014756 


006104 






ROL 


R4 






2444 


014740 


OO0504 






bWAb 


R4 






244'^> 


014742 


004737 


015004 




JSR 


PC. OCTPG 


jPRINT DIGIT 4 




2446 


014 746 


010504 






MOV 


R5.R4 






244 7 


014750 


OO60O4 






ROR 


R4 






2448 


014752 


006004 






ROR 


R4 






2449 


014 754 


OO60O4 






ROR 


R4 






2450 


014 756 


004757 


015004 




JSR 


PC. OCTPG 






2451 


014 7 j2 


010504 






MOV 


R5.R.1 






2452 


014 764 


004737 


015004 




JSR 


PCOC^PC, 


jPRlNT DIGIT 5 




2455 


014770 


012737 


000240 000600 0CTP5: 


MOV 


#240. TOB 






2454 


014776 


00473 7 


014514 




JSR 


PC.TOl. 


iPRlNF SPACh 




2455 


015002 


000(^0 7 






RTS 


PC 


le.xiT 




2456 


015OO4 


042704 


177 7 70 


OCTPG: 


BIC 


ffl 7/7 70, R4 






245/ 


015010 


001004 






BN( 


OCTPGO 






2458 


015012 


005 75/ 


015046 




TST 


{V i 






245*^* 


015016 


OOlOOl 






BIMf 


HCHMjO 






2460 


015020 


00020 7 






RT*. 


PC 






2461 


















2462 


015022 


005^5 7 


01504^ 


OClPbO: 


INC 


UH 






246 ^ 


015026 


052704 


000260 


DCTPCl: 


HI'. 


02^0, N4 






^464 


015052 


01045 7 


000600 




MOv 


R4. TOH 






2465 


015056 


004 75 7 


0J4514 




J'.R 


PC. U)G 






.-'466 


01504.^ 


010^04 






MOV 


R^R4 






24*. • 


015044 


OOO.'O ' 






R T ' . 


PC 






<'46« 


015046 


oooooo 




UFt : 


o 




■ I IPM CHAW * I AU 





C^TECKO TM05-Ttlb' Tu;* Bf T 
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SfcQ 0066 



246^ 
















24 70 
24 71 

24 72 










iDATA 


CHARACTER OUTPUT SUBROUTINE*** ♦♦♦♦♦ 


015050 


005057 


000600 


DOUT: 


CLR 


TOB 




24 73 


015054 


012704 


OOOOIO 




MOV 


dlO,R4 


iSET NUMBER TO PR 


2474 


015060 


110557 


000600 




MOVB 


R5.T0B 




24 75 


015064 


105777 


165466 


Hi 


TSTB 


STP5 




24 76 


015070 


100375 






BPL 


11 




2477 


015072 


152757 


000200 000600 




BITB 


«200 , TOB 




24 78 


015100 


001404 






BEQ 


2t 




24 79 


015102 


012777 


000061 165450 




MOV 


»061,STPB 




2460 


015110 


000405 






BR 


3» 




2461 


015112 


012777 


000060 163440 


21: 


MOV 


*060,BTPB 




2482 


015120 


006157 


000600 


5): 


ROL 


TOB 




2485 


015124 


005504 






DEC 


R4 




2464 


015126 


001 156 






BNe 


11 




246S 


015150 


000207 






RTS 


PC 




2466 
















2467 


015152 


015705 


000656 


OOUTDj 


MOV 


TEMPS. R5 




2488 


015156 


000505 






SWAB 


R5 




2469 


015140 


004757 


015050 




JSR 


PC.OOUT 




2490 


015144 


015703 


000656 




MOV 


TEMP5,RJ 




2491 


015150 


004757 


015050 




JSR 


PC. DOUT 




2492 


015154 


000207 






RTS 


PC 




249J 
2494 
2495 










, CpDT 


(11 vuiftjocn nnTkiT 












1 aCn iHi_ nv» HJtn r-n ill 1 




2496 


015156 


010504 




SNPT: 


MOV 


R5.R4 




2497 


015160 


000504 






SWAB 


R4 




2496 


015162 


006004 






ROR 


R4 




2499 


015164 


006004 






ROR 


R4 




2500 


015166 


006004 






ROR 


R4 




2501 


015170 


006004 






ROR 


R4 


iGtT F IRST DIGIT 


2502 


015172 


004757 


015234 




JSR 


PC , SNPG 


(GO PRINT 


2505 


015176 


010504 






MOV 


R5,R4 




2504 


015200 


000504 






SWAB 


R4 


iGtT SECOND DIGIT 


2505 


015202 


004757 


015254 




JSR 


PC , SNPG 


|G0 PRINT 


2506 


015206 


010504 






MOV 


R5,R4 




2507 


015210 


006004 






ROR 


R4 




2506 


015212 


006004 






ROR 


R4 




2509 


015214 


006004 






ROR 


R4 




2510 


015216 


006004 






ROR 


R4 


iGET THIRD DIGIT 


2511 


015220 


004757 


015254 




JSR 


PC . SNPG 


iGO PRINT 


2512 


015224 


010504 






MOV 


R5,R4 


iGET rrM^TH DIGIT 


2513 


015226 


004757 


015234 




JSR 


PC , SNPG 


|G0 PRINT 


2514 


015252 


000207 






RTS 


PC 


lEXlT 


2515 


015254 


012757 


000260 000600 


SNPUj 


MOV 


0.>t>0,TOB 


I SET BASE • 


2516 


015242 


042704 


177760 




BIC 


tfl / ;/60,R4 


iMASK DIGIT 


2517 


015246 


050457 


000600 




BIS 


R4. TOB 


iStT ASCII 


2518 


015252 


004757 


014514 




JSR 


PC, TOG 


iTiPt DIGIT 


2519 


015256 


000207 






RTS 


PC 


1 RE TURN 


2520 

















CZTfc.L>0 


TM^.^5 n lb lU// 


B^ T 


CZTtCK. 

2ScV> 

252S 
2524 


PI I 06 -APR 84 


10(59 


015260 


022737 


000176 


2525 


015266 


001032 




25?:6 


015270 


004757 


015356 


252! 


015274 


012704 


021521 


2S2^ 


015300 


004757 


014414 


2529 


015504 


017705 


165240 


2530 


015310 


004737 


014616 


2531 


015314 


012704 


021550 


25<^ 


015520 


004757 


014414 


2533 


015524 


015705 


000550 


2554 


015550 


012701 


000007 


2535 


015334 


012702 


177777 


2536 


015340 


012705 


000000 


2537 


015544 


004757 


014072 


2536 


015550 


004737 


015400 


2539 


015354 


000207 




2540 








2541 








(1) 


015356 


010546 




cn 


015360 


010446 




(1) 


015562 


010546 




;i) 


015564 


010246 




cn 


015566 


010146 




(I) 


015370 


010O46 




cn 


015372 


016646 


000014 


(i) 


015576 


000207 




(I) 








2542 








CD 


015400 


012666 


000014 


(1) 


015104 


012600 




CI) 


015406 


C12601 




(1) 


015410 


012602 




(n 


015412 


012603 




( 1) 


015414 


012604 




cn 


015416 


012605 




cn 

2543 


015420 


000207 











HACUl 50(1046') 06 APR -84 



a. 

lOt4S PAGt b^ 



StQ 0067 



000550 GTSWR: 



jROUTINE TO LOAD NEW VALUf. INTO SWITCHES 



1$ 



CMP OSWRFG.SWR 

BNE U 

JSfl PC, .SAVE 

MOV 01MSUR,R4 

JSR PC. T TOUT 

MOV SSWR.R5 

JSR PC.OCTPE 

MOV #|MNew.R4 

JSR PC.TTOUT 

MOV SWR.RS 

MOV *7,Ri 

MOV 0177777, R2 

MOV #0,R3 

JSR PC,TTR 

JSR PC,. RESTORE 

RTS PC 



I BRANCH IF SOFTWARE SWR 

I NOT INVOKED 

I SAVE REGISTERS ON THE STACK 



iTTR ROUTINE RETURNS NEW VAl.ijE 
I LIMIT RESPONSE TO 7 CHARS 
iBETWEEN AND 177777 



iRESTORE REGISTERS 



TO CR5) 



mROUTINE to SAVE REGISTERS ON THE STACK 



.SAVE: MOV #5,-(SP) 

MOV M,-(SP) 

MOV *3, -(SP) 

MOV i<2,-(SP) 

MOV *l, (SP) 

MOV *0. (SP) 

MOV 14(SP),-(SP) 

RTS PC 



t |R5 IS SAVED AT 12(SP) 



mR4 
mR5 
i|R2 
iiRl 
mRO 



IS 

IS 
IS 
IS 
IS 



t (PUSH 



SAVED 
SAVED 
SAVED 
SAVED 
SAVED 
RETURN 



AT 
AT 
AT 

At 
AT 
PC 



lO(SP) 
6(SP; 
4(SP) 
2(SP) 



ON THE STACK 



mHETURN to CALLER 



mROUTINE to restore REGISTERS SAVED ON THE STACK 



. RESTORE : MOV ( SP ) • . 14 ( SP ) 

MOV (SP)»>0 

MOV (SP)».*1 

MOV CSP)*,*2 

MOV (5P)».*5 

MOV (SP)',*4 

MOV CSP)».ii5 

RTS PC 



11 STORE RETURN PC ON STACK 



IiMETL'RN 



C/TIOO TH05 
CZTF.a\Pll 



Tfc 16 Tl'.*/ Bf T 
Ofe-MPR-84 10J39 



MACtU 30(1046) Ob-APH-84 



D6 

10:4^ PAGF. 54 



J54b 

^54 7 



^548 
2549 



2b50 



2551 



3552 

?5S5 
2554 



2555 
2556 



2557 



015422 

015430 

015456 

015444 

015452 

015460 

015466 

015474 

015502 

015510 

015516 

015524 

015532 

015540 

015546 

015554 

015562 

015563 

015570 

015576 

015604 

015612 

015620 

015626 

015634 

015642 

015650 

015656 

015664 

015672 

015700 

015706 

015714 

015722 

015723 

015730 

015736 

015744 

015746 

015754 

015761 

Oi5766 

015774 

015777 

016003 

016010 

016016 

016024 

016025 

016032 

016040 

016046 

016054 

016062 



041445 

020040 

020040 

020040 

020040 

031123 

051504 

042440 

02004C 

051045 

020104 

026522 

047516 

020124 

050040 

042514 

043 

045 

026463 

052057 

040502 

052506 

047117 

020124 

041505 

054524 

051103 

052040 

040516 

051505 

020105 

052040 

052123 

043 

045 

052123 

040524 

021440 

053045 

020122 

045 

043117 

020123 

040 

045 

044524 

051122 

045 

045 

047117 

042514 

050115 

044440 

026516 



030523 
041527 
041040 
020040 
020040 
020040 
020040 
020122 
041524 
053505 
051105 
047502 
020124 
044127 
050111 
051101 

052045 
042524 
035525 
044523 
041516 
052040 
041450 
030106 
042520 
020076 
051105 
042524 
047520 
020046 
020117 
051101 

042522 
051105 
052122 

041505 
020075 
047105 
050040 
043 
020077 
047520 
047117 
051117 

051511 
051124 
020122 
051105 
020116 
052123 



SP.Q 0068 



020040 
020040 
020101 
041506 
041440 
020040 
02OO40 
020040 
021445 
047111 
04 7'322 
020124 
042523 
047105 
041440 
042105 

030115 
035061 
02OO67 
020103 
044524 
051505 
052132 
022451 
056040 
047524 
044515 
051040 
051516 
041556 
042522 
022524 

044507 
051440 
056440 

047524 

043 

020104 

051.501 

043 
044525 
042440 
020072 

041440 
046117 
052512 
04210S 
04/516 
047101 



MSGl! 



iMESSAGE TABLE***** 

.ASCII /i*C51 WC BA FC 



CS2 / 



■ASCII /OS 



ER 



TC*#/ 



MSG2! 



.ASCII /HREUIND ERRQR-BOT NUT 5ET WHEN PIP CLEARED^/ 



MSG3! .ASCII •iiiiTM05-TE16/TU/7 BASIC *^UNCTION TEST ( C/TECFO)*' t * *B 



.ASCII /T>PE <CR> TO TERMINATE RESPONSE t ^C TO RESTARTitO/ 



MSG4: .ASCII /^REGISTER START • 0/ 

MSG5: .ASCII /^VECTOR - 0/ 

MSG6: .ASCII /•(END OF PASS 0/ 



MSG7: .ASCII / ? 0/ 

MSG9: .ASCII /IMPOSITION ERROR: *>/ 



MSGIOA: .ASCII /*IS C0NTR01.L.FR Jl»MPFREO IN NON STANDARD MODE/< 15^^ 12^ 



L: 6 



cJTecKo 


Th05-TE 16 'TU7.' 


BF 1 


MACYll 


30C 1046 


C2TF.CK. 


PU 06-APR-fl4 


10:59 








016070 


040504 


042122 


046440 






0U076 


042117 


006505 


012 




2558 


016105 


124 


050131 


020105 






016110 


020062 


04 7506 


020122 






016116 


047516 


026516 


052123 






016124 


047101 


040504 


042122 






016132 


047440 


020122 


051103 






016140 


043040 


051117 


051440 






016146 


040524 


042116 


051101 






016154 


055104 


020040 


020040 






016162 


020040 


043 






f^^59 


C16165 


045 


05110-' 


055111 


MSGIO: 




016172 


020105 


052516 


041115 






016200 


051105 


020072 


043 




2560 


016205 


045 


046125 


055101 


MSGllt 




016212 


020105 


052516 


041115 






016220 


051105 


020072 


043 




2561 


016225 


045 


051127 


052111 


M3G12: 




016232 


020105 


051105 


047522 






016240 


020122 


043 






2562 


016243 


045 


042522 


042101 


HSG13: 




016250 


051040 


055105 


051105 






016256 


042523 


042440 


051122 






016264 


051117 


021440 






2565 


016270 


051045 


040505 


020104 


MSG14: 




016276 


047506 


053522 


051101 






016304 


020104 


051105 


047522 






016512 


020122 


045 






2564 


016315 


045 


051127 


052111 


MSG15: 




016322 


020105 


046524 


042440 






016330 


051122 


051117 


021440 




2565 


016356 


020045 


051127 


052111 


MSG15A 




016544 


020105 


046524 


042440 






016352 


051122 


051117 


047440 






016360 


020116 


042523 


047503 






016566 


042116 


052040 


020115 






016574 


043 








2566 


016375 
016402 


045 

043 


041520 


020040 


MSG15B 


2567 


016405 


045 


042522 


042526 


MSG16! 




016410 


051522 


020105 


051105 






016416 


047522 


020122 


043 




2568 


016423 


045 


047506 


053522 


MSG17: 




016430 


051101 


020104 


051105 






016456 


047522 


020122 


045 




2569 


016443 
016450 


040 
043 


051116 


020132 


MSG20: 


2570 


016451 


040 


042520 


021440 


M5G21: 


2571 


016456 
016464 


'''12440 
021440 


050130 


035124 


MSG22: 


2572 


016466 
016474 


051040 
021440 


053103 


035104 


MSG23: 


2573 


016476 


041045 


051525 


052040 


hSG24 : 




016504 


040522 


035120 


021440 




25 74 


016512 


055445 


055103 


021440 


MSGP5: 


a575 


016520 


041045 


035101 


021440 


HSU26: 



SEQ 0069 



.ASCII /TYPE 2 FOR NON-STANDARD OR CR FOR STANDARD: 



i>/ 



.ASCII /*DRIVF. NUMBER: i>/ 



.ASCII /»iSLAVt NUMBER: 0/ 



.ASCII /#WRITE ERROR f>/ 



.ASCII /*READ REVERSE ERROR 0/ 



.ASCII /*READ FORWARD ERROR O/ 



.ASCII /liWRITE TM ERROR 0/ 



.ASCII /* WRITE TM ERROR ON SECOND TM ft/ 



.ASCII /liPC «/ 

.ASCII /^REVERSE ERROR 0/ 

.ASCII /^FORWARD ERROR 0/ 

.ASCII / NH/ i}/ 

.ASCII / PE 0/ 

.ASCII / EXPT: 0/ 

.ASCII / RCVU: ft/ 

.ASCII /*BUS TRAP; 0/ 

.ASCII /KWC: ft/ 

.ASCII /*BAi ft/ 



C/TbCKO TH05 
CZTFCK,Pn 



Ttlb- TU/: Bf T 
06-APR-84 10:59 



MACYll 30C1046) 06 APR-a4 



F6 

10J45 PAGt bi\2 



SEQ 00 70 



t:S77 



?578 
.^579 

^580 

S583 
12S&S 
2584 

*^585 

^586 



2587 

c'^_i8a 

2589 
a590 



016526 

016554 

016542 

016550 

016556 

016564 

016572 

016600 

016606 

016615 

016620 

016626 

016654 

016642 

016645 

016650 

016656 

016664 

016672 

0166/5 

016700 

016706 

016711 

016/16 

016724 

016726 

01673** 

016742 

016744 

016752 

016760 

016766 

016771 

016776 

017004 

017012 

017020 

017026 

017054 

017042 

017050 

017056 

017057 

017064 

017072 

017100 

017106 

0171U 

017116 

017124 

017131 

017136 

017144 

017152 

0171^0 

017164 



042045 
044445 
044504 
020124 
020122 
051445 
020124 
020124 
044516 

045 
047516 
042525 
044440 

045 

045 
047516 
042525 
044440 

045 

045 
047516 
020124 

045 
052117 
0^1440 
0L.2045 
052117 
021440 
044445 
020124 
054502 
020124 

045 
052117 
052105 
047111 
047445 
020124 
020124 
051440 
047105 

045 

045 
052117 
041040 
047514 
020114 

045 
044523 
040505 

045 
052117 
052105 
044525 
046125 
047045 



055102 
044516 
C20104 
046103 
044122 
020105 
042522 
054502 
020124 
051124 
020124 
020124 
044516 

051505 
020124 
020124 
044516 

046 1C4 
020124 
045 
041525 
051440 

042522 
051440 

020122 
042525 
044440 
043 
051117 
051040 
041040 
052111 
020122 
042522 
054502 
046111 
051124 

051117 
051440 
020131 
043040 
045 
040502 
04 7514 
020104 
051111 
051040 
041040 
04 7514 
021514 
047117 



021440 
020124 
047516 
040505 
021440 
04 7516 
042525 
044440 
043 
020105 
042522 
054502 
020124 

020062 
042522 
054502 
020124 

020124 
042525 

047040 
052105 

04 7040 
052105 

047516 
020124 
044516 

047040 
051505 
020131 
021440 
047516 
042525 
030440 
020117 
020151 

04 7040 
052105 
044525 
046125 

020104 
051040 
045 
04 7040 
051505 
020151 
043040 



MSG27: .ASCII /KDB : ft/ 

riSG28; , ASCII /KINIT DID NOT CLEAR RH #/ 



MSG29! .ASCII /KSC NOT RESET BY INIT 0/ 



MSG50: .ASCII /»tTPE NOT RESET BY INIT i>/ 



MSG31! .ASCII /KCS2 NOT RESET BY INIT i>/ 



MSG52: .ASCII /HOLT NOT SET i>/ 



MSG33: .ASCII /*SC NOT SET t>/ 



MSG34: .ASCII /KTRE NOT SET 0/ 



MS635: .ASCII /»<IR NOT SET BY INIT 0/ 



NSG36: .ASCII /*0R NOT RESET BY INIT 0/ 



MSG37: .ASCII /HOR NOT RESET BY 1 SILO ENTRY t)/ 



MSG38: .ASCII /*0R NOT SET BY SILO FULL ^/ 



MSG39: .ASCII /«iBAD SILO READ 0/ 



MSG40: .ASCII /<IR NOT RESET BY SILO rULL<?/ 



042455 MSG41 ! .ASCII /*NON-bXlST DRlVLO/ 



C7Tf-:ao TH03-Tt.l6/TU// B^ T 
CZTECK.Pn 06 -APR 84 10:39 



MACYll 3OC1046) 06-APR-84 10:45 



G6 

PAGE 54-3 



SEQ 0071 



25^1 
2592 
c?593 

;?594 



2595 
2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

i^604 



017172 

017200 

017205 

017212 

017220 

017226 

017234 

017242 

017243 

017250 

017256 

017264 

017272 

017273 

017300 

017306 

017314 

017322 

017330 

017331 

017336 

017344 

OU^50 

017356 

017364 

017372 

017374 

017402 

017410 

017416 

017421 

017426 

0174 34 

017442 

017446 

017454 

017462 

017470 

017474 

017502 

017510 

017516 

017524 

017532 

017540 

017546 

017554 

017562 

017566 

017574 

017502 

01 /605 

017612 

017620 

017626 

017632 



044530 

044522 

045 

054105 

046123 

051445 

020114 

043 

045 

020105 

044440 

040522 

043 

045 

041111 

040522 

040505 

041117 

040 

103 

050040 

052111 

051445 

020120 

020105 

021522 

051445 

043040 

042122 

051117 

045 

020105 

051522 

04 7522 

041045 

042522 

052111 

047522 

041045 

052105 

051105 

042506 

051127 

047045 

020124 

051O40 

047111 

042523 

052045 

047503 

020124 

045 

040506 

052040 

040505 

022445 



052123 
042526 
04 7516 
051511 
053101 
051105 
047516 

051105 
042510 
047516 
044524 

047520 
042514 
042523 
020104 
042514 

042510 
046117 
021531 
052105 
051127 
051105 

040520 
051117 
04244C 

043 
050123 
042522 
020105 
021522 
043125 
020104 
020105 
021522 
052117 
040440 
041040 
042522 
052111 
020117 
051106 
040505 
050040 
021524 
020103 
051122 

043 
04 7515 
046111 
020117 
021522 
042522 



042040 
043 
026516 
020124 
021505 
040511 
020072 

051501 
042101 
042520 
042526 

051523 
042440 
044040 
051120 
035115 

045503 
051101 

052455 
052111 
047522 

042503 
040527 
051122 

041501 
042526 
051105 

042506 
051127 
051105 

051440 
052106 
043125 
020104 
021505 
047502 
046517 
020104 
04252? 

047111 
041505 

020114 
042105 
046103 



MSG42! .ASCII /KNON-EXIST SLAVE^^/ 



MSG43: .ASCII /^SERIAL NO: ft/ 



MSG44: .ASCII /^iERASE HEAD INOPERATIVE^/ 



MSG45: .ASCII /fltPOSSXBLE ERASE HEAD PROBLEM: / 



ASCII /CHECK POLARITY*/ 



MSG46i .ASCII /KSET-UP WRITE ERRORS/ 



MSG47: .ASCII /KSPACE FORWARD ERRORft/ 



MSG46: .ASCII /<SPACE REVERSE ERRORft/ 



MSG49: .ASCII /f^BUEFERED WRITE ERRORS/ 



MSG50: .ASCII /*BOT SET AFTER BUFFERED WRITER/ 



HSG51! .ASCII /i<NO BOT FROM READ IN PRESET^/ 



MSG52: .ASCII /KTC INCORRECT 0/ 



MSG53: .ASCII /liMOL F-AlLh.O TO CLtAR<^>' 



042523 MSG54: .ASCII /HitRESET SLAVE TO ON LINE BEFORE CONTINUING/ 



H(^ 



C/Tl Ceo 


TM05 U Ib'TU/.'- 


Bf 1 


MACTll 


50(1046) 


C/TtCK. 


PU 06-APR-84 


10:39 








Ol7b40 


020124 


046123 


053101 






017646 


020105 


04 7524 


047440 






017654 


020116 


044514 


042516 






01766? 


041040 


043105 


051117 






017670 


020105 


047503 


052116 






017676 


047111 


044525 


043516 




c^605 


017704 


051445 


052105 


051440 






017712 


030527 


056462 


020061 






017720 


043111 


054440 


052517 






017726 


042040 


052117 


053440 






017734 


051511 


020110 


04 7524 






017742 


051040 


050105 


040505 






017750 


020124 


042522 


044527 






017756 


042116 


047440 


04 3106 






017764 


044514 


042516 


052040 






017772 


051505 


021524 






^606 


017^76 
020004 


044440 
021440 


042524 


035122 


MSG56t 


i?607 


020006 


052045 


020115 


047516 


MSG57i 




020014 


020124 


042523 


021524 




2608 


020022 


042445 


052111 


042510 


MSG60! 




020030 


020122 


040524 


042520 






020036 


047040 


052117 


042440 






020044 


040522 


042523 


020104 






020052 


051117 


047440 


044520 






020060 


050040 


04 7522 


046102 






020066 


046505 


043 






2609 


020071 


045 


044122 


04 7440 


MSG62: 




020076 


046116 


020131 


047050 






020104 


036517 


026060 


042531 






020112 


036523 


024461 


020072 






020120 


043 








26L0 


020121 


045 


044504 


020104 


MSG63: 




020126 


047516 


020124 


053501 






020134 


04 7524 


051440 


046105 






020142 


041505 


020124 


051116 






020150 


021532 








2611 


020152 


042045 


042111 


04 7040 


MSG64 : 




020160 


052117 


040440 


052125 






020166 


020117 


042523 


042514 






020174 


052103 


050040 


021505 




?b\^ 


020202 


021445 






MSG65: 


2615 


020204 


021534 






MSG66: 


?.biA 


020206 


042445 


055122 


021440 


M5G67: 


2615 


020214 


051045 


046505 


053117 


MSG69I 




020222 


020105 


046524 


050104 






020250 


043040 


04 7522 


020115 






020236 


046123 


055101 


020105 






020244 


047524 


041040 


020105 






020252 


042524 


052123 


042105 






020260 


021445 








2616 


020262 


044045 


051101 


053504 


MSG70: 




0202 70 


051101 


020105 


053525 






020276 


020122 


047111 


052440 






020304 


042523 


C21445 






^617 


oaoiio 


04C445 


040S24 


04V040 


MSG71: 



06 APR -84 10:45 PAGE 54-4 



SfcQ 0072 



ASCII /9<SET SW12-1 IF YOU DOT UISH TO RtPEAT REWIND OFFLINE TEST*/ 



.ASCII / ITER: t>/ 

.ASCII /*TM NOT SET/?/ 

.ASCII /«<EITHER TAPE NOT ERASED OR DPI PROBLEM*/ 



.ASCII /*RH ONLY (NO-O.YES-l): ^/ 



.ASCII /tiOID NOT AUTO SELECT NR/ft/ 



.ASCII /liDID NOT AUTO SELECT PE#/ 



.ASCII /**/ 

.ASCII /\tt/ 

.ASCII /i<ER; 0.' 

.ASCII /^REMOVE TMOP FROM SLAVE TO BE TESTED^*/ 



.ASCII /i<HARt)WARE SWR IN USE**/ 



.ASCII ^*ATA NOT SET AFTER NON-TRANSFER OPERATION*/ 



C7TtCK0 
CZTECK, PU 









16 


11105 -Tt. 16/ TU// BF T 


MACYU 50C1046) 


06 -APR -84 


10:45 PAGE 54-6 


U 06-APR-84 10:39 








0^0516 052117 051440 


052105 






0^0324 040440 052100 


051105 






020552 047040 047117 


052055 






020540 040522 051516 


042506 






020546 020122 050117 


051105 






020554 052101 047511 


021516 







StQ 0073 



2618 



C.^Xt'O TM03-TF 16'TU?/ Bl- T 
C;''Kcr.PU Ob-APR-84 10:59 



.:6^ i 










2^22 


020362 


022445 


052106 


055061 




020570 


044122 


040440 


042104 




020376 


042522 


051523 


047111 




020404 


020107 


043 




.^6^3 


020407 


045 


043045 


051124 




020414 


051072 


020110 


042522 




020422 


044507 


052125 


051105 




020430 


041040 


052111 


020123 




020436 


042524 


052125 


021440 


..^624 


020444 


022445 


052106 


035063 




020452 


044122 


044440 


044516 




020460 


044524 


046101 


055111 




020466 


020105 


042524 


052123 




0204 74 


021440 






2625 


020476 


022445 


052106 


035064 




020504 


044122 


030461 


051440 




020512 


046111 


020117 


042524 




020520 


052123 


030440 


021440 


2626 


020526 


022445 


052106 


055065 




020534 


044122 


030461 


051440 




020542 


046111 


020117 


042524 




020550 


052123 


051040 


021440 


.'627 


020556 


022445 


052106 


055066 




020564 


044122 


030461 


051440 




020572 


046111 


020117 


042524 




020600 


052123 


031440 


021440 


2628 


020606 


022445 


052106 


055067 




020614 


044122 


050461 


051440 




020622 


046111 


020117 


042524 




020630 


052123 


032040 


021440 


;^629 


020636 


022445 


052106 


030061 




020644 


051072 


030510 


020061 




020652 


044525 


04 7514 


052040 




020660 


051505 


020124 


020065 




020666 


043 






2630 


020667 


045 


043045 


030524 




0206/4 


035061 


047516 


020120 




020 702 


042524 


052125 


045 


;^6si 


020707 


045 


045045 


050524 




0207H 


035062 


042522 


04452 7 




020 722 


042116 


052040 


051505 




020730 


021524 






2652 


020 732 


022445 


052106 


031461 




020740 


0534 72 


04452..' 


042524 




020 746 


051055 


040505 


020104 




020 751 


042524 


052125 


045 


2633 


020 761 


045 


045045 


050524 




020766 


055064 


050125 


041501 




020^/4 


020105 


042524 


052123 




02100? 


04 5 






2634 


021003 


045 


04 3045 


050524 




021010 


055065 


051105 


051 SOI 




02 1- '16 


02010". 


042524 


052123 




021024 


043 







J 6 

MACYll 30(1046) 06-APR-84 10:45 PAGt 55 

J TEST HEADFRS***** 
MSFTl! .ASCII /*f<FTl:RH ADDRESSING 0/ 

HSFT2: .ASCII /i<*FT2!RH RF.GISTtR BITS TEST t>/ 

MSFT3: .ASCII /«I«1FT3:RH INlTlALl/fc TEST i>/ 

MSFT4: .ASCII /<JiFT4:RHll SILO THST 1 0/ 

MSFT5i .ASCII /li»iFT5!RHll SILO TEST 2 t>/ 

MSFT6: .ASCII /**FT6!RH11 SILO TEST 3 0/ 

MSFT7: .ASCII /rfKFT7:RHll SILO TEST 4 <)/ 

MSFTIO: .ASCII /K»<FT10:RHll SIlO TEST 5 0/ 

hSFTU: .ASCII /*i<FTU:NOP TEST^;/ 
MSFT12: .ASCII /KrtFT 12: REWIND Tt.STi// 

MSFT13: .ASCII /i<*FT 15: WRITE READ TEST<>/ 

MSFT14: .ASCII /*(¥F T 14 • SPACE TESTV>/ 

MSFT15: .ASCII /^KFT 15; ERASE TtSTV// 



SEQ 0074 



C7TECK0 


TH05-Tbl6/TUr; 


Bf T 


MACYll 


CZTFCf . 


PU 06-APR-84 


10:39 




c?635 


021025 


045 


045045 


030524 




021052 


035066 


040524 


042520 




021040 


046440 


051101 


020115 




021046 


051127 


052111 


026505 




021054 


042522 


042101 


052040 




021062 


051505 


021524 




2656 


021066 


022445 


052106 


033161 




021074 


052072 


020115 


050123 




021102 


041501 


020105 


042524 




021110 


052125 


021440 




^637 


021114 


022445 


052106 


050062 




021122 


0554 72 


044^^22 


042524 




021150 


041440 


042510 


045503 




021136 


052040 


051505 


020124 




021144 


043 






^638 


021145 


045 


043045 


031124 




021152 


055061 


051105 


051501 




021160 


020105 


042510 


042101 




021166 


052040 


051505 


021524 


c^639 


021174 


022445 


052106 


031062 




021202 


041072 


043125 


042506 




021210 


042522 


020104 


047503 




021216 


046515 


047101 


020104 




021224 


042524 


052123 


043 


<^6flO 


021251 


045 


043045 


051124 




021236 


035063 


042522 


042101 




021244 


044440 


020116 


051120 




021252 


051505 


052105 


052040 




021260 


051505 


021524 




2641 


021264 


022445 


C52106 


032062 




021272 


0404 72 


052125 


020117 




021300 


042504 


051536 


052111 




021506 


020151 


042523 


042514 




021514 


052103 


020072 


051127 




021522 


052111 


026505 


051116 




021350 


026132 


042522 


042101 




021556 


050055 


021505 




2bA^ 


021542 


022445 


052106 


032462 




021550 


0404 72 


052125 


020117 




021556 


042504 


051516 


052111 




021364 


020151 


042525 


042514 




021372 


052105 


020072 


051127 




021400 


052111 


026505 


042520 




021406 


051054 


040505 


026504 




021414 


051116 


021532 




2643 


021420 


022445 


052106 


033062 




021426 


051472 


050505 


042525 




021434 


052116 


040511 


020114 




021442 


040524 


042520 


046440 




021450 


051101 


020115 


042524 




0214S6 


052123 


043 




£:644 


021461 


045 


04 5045 


051124 




021466 


055067 


042522 


04452/ 




0214 74 


042116 


04 7455 


04M06 




021502 


046040 


04/111 


0201 05 




021510 


042524 


052123 


04 3 



06 APR -84 10:45 



Kb 

PAtiE 55-1 



SbQ 0075 



MSfT16: .ASCII /?<KF T16: TAPE MARK WRITt-READ TEST/// 



MSFT17! .ASCII /KKFT17:TM SPACE TEST it/ 



M5Fr20: .ASCII /*ii*FT20:WRlTE CHECK TEST ^f/ 



MSFT21: .ASCII /i*i<FT21 : ERASE HEAD TESTO/ 



MSFT22: .ASCII /Ki<FT22: BUFFERED COMMAND TESTV?/ 



MSFT23: .ASCII /iii<FT23:REA0 IN PRESET TESTft/ 



MSFT24: .ASCII /*iiFT24 : AUTO DENSITr SELECT: WRITE NRZ, READ -PEV>/ 



MSFT25: .ASCII /Ki(FT25:AUT0 DENSITY SELECT: WRI rt Pt .READ-NR/ff/ 



MSFT26: .ASCII /HiiF T26: SEQUENTIAL TAPE MARK TESTft/ 



M5FT27: .ASCII /iii<FT27;REWlND -OFF LINE TESTft/ 



C/TtCtO 1M05 
CZTF.CK.PU 



06-APR-84 10:39 



MACyU 50(1046) 06 APR-8fl 



i. b 

10:45 PAGE SS 2 



SEQ 0076 



*^64S 
t^646 

«^64 7 

2648 
.^64^ 

^6S? 
2654 
26!^S 
^656 



021515 045 04J556 045 
021521 045 055525 056522 

021526 021440 

021550 020040 042516 056527 

021536 021440 



021540 022477 



021544 
0215^4 000000 

025256 
023256 000000 

000001 



043 



$CNTG: .ASCII /litr.ft/ 

$MSUR: .ASCII /*SWR- f>/ 

$MNF.W: .ASCII / UhM- 0/ 

$QUEST: .ASCII /!%<>/ 



WDATA: 
ROATA: 



.EVEN 


. =•. asio 



.END 



Mb 



CZTtCFO 


TM03 TE16/TU77 


BFT 


MACVll 


3u(1046) 


06 -APR 


-84 10: 


45 PAGE 


56 














CZTECK. 


PU 06-APR-84 


10:39 




CROSS REFERENCE 


TABLE - 


■ USER SYMBOLS 












SEQ 0077 


rtS 


000526 


6&St> 


























BA 


000514 


678V> 


1051 


1547* 


1978* 


2074 


















BADDR 


000616 


7170 


1313* 


1332* 


1357 + 


1366* 


1367-> 


1374* 


1444* 


1505* 


1536* 


1631* 


1678* 


1689 + 






1694* 


1711* 


1728* 


1762* 


1797* 


1837* 


1848* 


1866* 


1877* 


19^1* 


1978 






BAE 


000544 


690* 


961 
























BTRP 


000574 


7050 


























BTRP2 


000576 


7060 


























CC 


000530 


6840 


























CHNFL.G 


001662 


8410* 


850 


970 


997 


1007 


1935 


2229 














COUNT 


000734 


7560 


























CRCNT 


000714 


7480 


























CS 


000520 


6800 


908* 


909* 


911 


925* 


926* 


970* 


1109* 


1120 


1155* 


1155 


1181 


1185 






1190 


1196 


1218 


1222 


1270 


1285* 


1290* 


1294 


1404 + 


17 36* 


2078 


2210* 


<^211* 


CI 


000510 


6760 
2004* 


877 
2070 


910 


970 


1022 


1112 


1116 


1157 


1159 


1548* 


1770* 


1948* 


1985+ 

■ 


DA TAG 


000 746 


7660 


























DATAl 


000750 


7670 
























■ 


DATA2 


00075? 


7680 


























DATA5 


000754 


7690 


























DATBl. 


000744 


7650 


2115 
























DATl 


0L3262 


766 


21250 
























DATiA 


013266 


21260 


2135 


2140 






















DAT2 


013302 


767 


21340 
























DATS 


013306 


768 


21390 
























DAT4 


013314 


769 


21440 
























DB 


000532 


6850 


1060 


1154 


1189* 


1194* 


1214* 


1227 


1267* 


12o7* 


1291* 


1292 


1293 




DOUT 


015050 


24720 


2489 


2491 






















DOUTD 


015132 


24870 


























DRVN 


000612 


7150 


901 


903 


909 


926 


970* 


2211 














DRVTP 


000564 


7010 


























OV 


000522 


6810 
2007 


1336 
2009 


1550 
2018 


1552 
2019 


1771 
2025 


1780 
2084 


1608 


1814 


1852 


1881 


1956 


1989 


2fO05 


DS'W 


000664 


7360 


2018* 


2100 






















no UP 


013222 


1352 


1677 


1710 


1836 


1865 


1940 


21110 














oso 


013224 


21120 


























DI 


000536 


6870 


928 


9?0 






















EMAODR 


000610 


7140 


1018* 


1040* 


1080 


1106* 


1 1 35 


11 52* 


11/8* 


1210* 


1240 


1263* 


1283* 


13W* 






1338* 


1350* 


1392* 


1503* 


15 76* 


1610* 


1675* 


1707* 


1758* 


1794* 


1833* 


1862* 


1893* 






1937* 


2049 


2268 






















t.R 


000524 


6820 


1961 


2030 


2086 




















tRADD 


000650 


7300 


1048* 


1057* 


1066* 


100 5 


1114* 


1118* 


1124* 


1138 


1165* 


1165* 


1167* 


1183* 






1187* 


1192* 


1200* 


1220* 


1224* 


1274* 


1301* 


1746* 


174H* 


I7rt2* 


1816* 


lfr'3* 


1854* 






1883* 


1958* 


1965* 






















P.RCHK 


012510 


1320 


1339 


1362 


13/1 


157^ 


140/ 


14r'5 


1433 


1511 


15<r5 


1585 


1591 


15^*H 






1619 


1638 


1652 


1684 


1691 


1696 


1718 


1720 


1734 


1779 


1044 


1873 


1900 






1906 


1915 


1920 


20170 




















ERPT 


012574 


2020 


20300 
























ERPTA 


012722 


2047 


20510 
























ERPTAl 


012654 


2035 


2039 


20410 






















ERPTB 


012760 


2052 


20590 
























ERPTBl 


012772 


1562 


2060 


20620 






















ERPTC 


013022 


2063 


20680 
























ERPTD 


013146 


2045 


20900 
























tRPTG 


012662 


2028 


20430 


210!'. 






















ERPTX 


013156 


2042 


2091 


20930 






















ERPTXX 


013162 


20940 



























N6 



C7TtCfO TM03 -Tei6/TU7.' Bf T 
CZTECK.PU 06-APR-84 10:39 



2056 
721^ 

i618* 

1905* 
72?0 

1517 

1582 

1739 

1946 

19fl0 

198J 

1990 
1998* 

6790 

718* 
1737* 

776 
1023* 
1025* 
1026 
1032 

790 
1287* 
1295 
1282 
1298 

792 

794 
1536* 

796 
1354* 
1360* 
1370* 
1J78* 
1383 

798 
1399* 
1394* 
1409 
1413 
1420* 
1451 
1450 
14 36 
1426 
1469 
14/3 
14 75 
14h^' 
1410 
14^2 

flOO 
lbQ7it 



ERPTIA 


012 754 


ERRP 


000626 


tRRPl 


000630 


EXEC 


012310 


fcXFXA 


012362 


EXECB 


012370 


EXECC 


012410 


EXECX 


012430 


tXECXA 


012434 


EXECXX 


012440 


EXFL 


000 700 


fC 


000516 


FCNT 


000620 


(■ Tl 


0032 70 


F TIA 


005322 


MIB 


003326 


FTIX 


003540 


FTIXX 


003:)72 


F TIO 


005026 


FTIOA 


005062 


F TIOER 


005146 


rnox 


005124 


f TIOXX 


005142 


F TU 


005162 


i T12 


005500 


f T12A 


005560 


FT 13 


005412 


M15A 


005464 


f 1158 


005526 


MMC 


005606 


F T13D 


005654 


F T15X 


005720 


F T14 


005/24 


F T14A 


005 7 7b 


F T14A1 


005742 


F T14A2 


006070 


F T14A5 


006112 


F T14B 


006142 


F r 14EC 


006360 


F 1 14Rt 


006366 


F T14Rr 


006332 


F T14RR 


006270 


rT14R0 


00*^440 


F T14R1 


006462 


rT14R2 


006466 


F T14P3 


006540 


> TUX 


006550 


FT I4xy 


0065 72 


F T15 


006 S /6 


F'TISA 


006646 



HACYll 30(1046) 06 APR-84 10:45 PAGE 56 1 
CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0078 



2058* 
977* 
1636* 
1914* 
2059 
1354 
1588 
1766 
1974* 
1983* 
1984* 
1992 
1995* 
1997 



1449 

1511* 

1765* 

7 77 
1028 
2285 
1029* 
1055* 

791 
1289 
1501* 
1296* 
1300* 

795 

795 
1337 

79"* 
1586 
1364 
15/3 
1381 
1387* 

799 
1416 
1494 
1411* 
1415* 
1442 
1458* 
145/ 
1452* 
1443* 
14 710 
14 76* 
14 7/0 
1488* 
142S 
14 S5* 

801 



1559* 

1646* 

202 7* 

2104* 

1560 

1591 

1775 



1994 



1456 

1350* 

1798* 

1018* 

2278 



1505 

1507* 
1326* 

i.346* 



1591* 



1460* 



1569* 

1660* 

2051 

2106* 

1570 

1616 

1801 



1576* 
1685* 



1578 
1655 
1805 



1406* 
1687* 



1405 
1650 
1642 



1422* 
1692* 



1421 
1682 
1851 



1432* 
1717* 



1451 
1690 
1871 



1510* 
1733* 



1446 
1695 
1880 



1523* 
1777* 



1454 
1/16 
1697 



1584* 
1843A 



1509 
1/19 
1904 



1590* 
1872* 



1521 
1725 
1913 



1595* 
1899* 



1^341 
17 52 
1919 



1485 

1355* 

1638* 



1545* 
1597* 
1867* 



1/40 

1411* 

1942* 



1/42 
1412 
1977 



1/44 
1579* 



19//* 
1630* 



198^* 
1679* 



20/6 
1712* 



1725* 1729* 



1281* 1284 



1508 
1327 



14^0 1.4 ^S 
1499* 2021 



1439 



1489 



1491* 



B7 



CZTECKO TMOS 
CZTECK.PU 



TE16^ }vn BF T 
06-APR-84 10:59 



MACYU 30(1046) Ofc APR-ea I0t45 PAGE 56 P 
CROSS REFERENCE TABLE - USER SYMBOLS 



SEQ 0079 



rnse 

FTISX 

FTISXX 

Hit) 

FT 16 A 

FT16B 

FT16X 

FT17 

M17A 

FT17B 

FT17C 

FT170 

FT17D1 

FT17E 

FT17F 

FT17X 

FT2 

FT2A 

FT?B 

FT2C 

FT20 

FT2E 

FT2En 

FTaERA 

FT2ERB 

FT2ERC 

FT2X 

FTc>0 

FT 20 A 

FT206 

FT20C 

FT20X 

FT21 

rT21A 

fiaiB 

FT21C 

FTPISC 
FT21X 

FT22A 

FT22B 

F T22X 

rT23 

FT23A 

FT^SB 

FT25C 

FT25X 

FT24 

F T24X 

FT?5 

FT25X 

FT 20 

FT2^X 

FT2/ 

rT27X 

FT27XX 



006662 

006772 

007176 

007210 

007242 

007c46 

007426 

007456 

007456 

007462 

007622 

007670 

007706 

007722 

010012 

010054 

005576 

005410 

005450 

005510 

005524 

005554 

005564 

005614 

005666 

005676 

003706 

010040 

010056 

010202 

010254 

010254 

010264 

010272 

Ol05tS 

010574 

010422 

010606 

010616 

010672 

010712 

011012 

011022 

011152 

01U52 

011202 

011256 

011242 

011424 

011454 

011616 

011626 

012054 

012064 

0122^4 

012504 



1509# 

1515 

1554 

802 
1578* 
1579<r 
1599 

804 
1612* 
1615* 
1655<> 
1626 
16470 
1649# 
1659 
1621 

778 
1042« 
1047 
1056 
1064* 
1067 
1050 
1079 
1077 
1094 
1072 

806 
1675* 
1692* 
1697* 
1686 

808 
1708* 
1745 
1747 
1726* 
1^41 

810 
1766* 
1771* 
1781 

812 
1808* 
1809 
1615 
1795 

814 
1846 

816 
1675 

618 
1905 

820 
1960 
1954 



1515 

1555* 

1566* 

805 
1601 

1602* 

805 
1666 
1645 
1642 
1644* 
1662 
1657 
1665* 
1640 

779 
1049 
1051* 
1060* 
1065 
1071* 
1059 
1082* 
1095* 
1096* 
1099* 

807 
1700 



1696 
809 

1748* 
1749* 
1749 
1745 

8U 
1766 
1772 
1765* 

615 
1811 
1614* 
1819* 
1822 

815 
1653 

817 
1862 

619 
1909 

821 
1964 
1956 



1573* 2023 



1609* 



1654 

1040* 

1074 

1056 

1069 



1070 



1672V 



1701* 
1707* 



1751* 
1758* 



1792* 
1813 



1826* 
1655* 
1856* 

1862* 

1885* 

1892* 

1918 

1915* 

1967* 

1969* 



1664 



1667* 



1075* 1825 



1966 



1783 



1817 



2056 
2058 

1925 
2196 



1824 



2191 
1925 
2198 



1928* 



c/ 



C/TtCKO 
C2TF.CK. 
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TABUe - 


^^ Pfit3E 
- USER S 


56-5 
YMBOLS 












StQ 


F T5 


005 ??0 


780 


781 


11060 


1107 




















FTJA 


005774 


1U5 


11160 
























fTSB 


004016 


1117 


11200 
























FTSEH 


004054 


1115 
1750 


1119 
1784 


1125 
1818 


11500 
1855 


IWO 
1884 


1184 

1959 


1188 


1193 


1201 


1221 


1225 


1275 


1502 


TTJX 


004044 


1125 


11260 
























FT4 


004140 


782 


785 


11500 


1169 




















f- 14ER 


OOA222 


1156 


11650 
























FT4F.RA 


00425^ 


1158 


11650 
























rT4ERB 


004^4^ 


1160 


11670 
























FT4ERC 


004 ?50 


1164 


1166 


11680 






















FT4X 


004212 


116U 


1171 
























FT5 


004266 


784 


785 


11760 






















FT5A 


004510 


1179 


11800 
























FT5B 


004556 


1182 


11850 
























FT5C 


004560 


1186 


11890 
























FT50 


004410 


1191 


11940 
























FT5E 


004422 


1196# 


1199 
























FT5X 


0O4450 


1151 


1177 


1197 


12020 




















FT6 


004460 


786 


787 


12080 






















FT6A 


0O4502 


1211 


12120 
























FT6B 


004510 


1214« 


1217 
























FTbC 


004546 


1219 


12220 
























FT6D 


004570 


1225 


12260 
























rT6DE 


004622 


X229 


12560 
























FT6DEA 


0O4654 


1245C 


























F T60EB 


004720 


1258 


12550 
























FT60EX 


004750 


1254 


12560 
























FT6R 


0O4572 


1227# 


1252 
























rT6X 


0O4612 


1209 


12550 
























FT7 


004 752 


788 


789 


12610 


1264 




















FT7A 


0O4 764 


1267* 


1269 
























FT^ER 


0050 I r 


1271 


12740 
























FT7X 


005002 


126? 


12720 


1276 






















HJN 


000710 


746# 


1516» 


1555* 


1558* 


1568* 


1575* 


1402* 


1420* 


1428* 


1445* 


1455* 


1472 


1507» 






1519* 


1540* 


1581* 


1587* 


1595* 


1615* 


1652* 


1645* 


1658 


1661* 


1681* 


1688* 


1695* 






1715* 


1751* 


1765* 


1800* 


1804* 


1841* 


1850* 


1870* 


1879* 


1896* 


1911* 


1945* 


1979 






1981 


1985 
























GTSWR 


015260 


950 


2248 


25240 






















HDRFL 


0006^6 


715* 


978* 


1078 


1082* 


11^5 


1157* 


1239 


1242* 


2046 


2048* 


2265 


226 7* 




HERE 


00525b 


10060 


























iNiri 


015540 


1042 
1805 


1108 
1947 


nil 

2005 


1180 
2011 


1212 
2095 


1265 
22090 


1509 


1528 


1599 


1458 


1649 


1773 


1795 


TNIT^ 


013550 


2211» 


























ITAMT 


000566 


7020 


2179 
























ITCNT 


0O0662 


7550 


2066 


2174* 


2178* 


,n.N 


















ITER 


015570 


1100 
1785 


1126 
1856 


1161 
1885 


1202 
1928 


U'55 
21/10 


12 72 


1296 


1521 


1540 


1566 


1602 


1701 


1751 


ITRLP 


000676 


7410 


974* 


975* 


218.' 




















JUMPER 


000742 


7590 


891 


896 


2054 




















LTADO 


000/06 


7450 


972* 


973* 


974 


979 


994* 


995* 


ao2i 


2025 


2056 


2056 






MR 


OlX)554 


6860 


























MsrTi 


020562 


1018 


26220 
























MSFTIO 


020656 


1285 


26290 
























MSf TU 


02066 7 


151':* 


26500 
























HSFTli 


02070/ 


1358 


26310 
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15S0 26320 

1392 1463 

J.505 26340 

1576 26350 

1610 26360 

1040 26230 

1673 26370 

1707 26380 

175fl 26390 

1794 26400 

1833 26410 

1862 26420 

1893 26430 

1937 26440 

1106 26240 

1152 26250 

1178 26260 

1210 26270 

1265 26280 

2068 254 70 

899 25590 

889 25570 

916 25600 

1359 1636 

1369 1590 

1376 1595 

1584 1618 

1905 25650 

1556 25660 

1476 1646 

1474 1660 
25490 

1467 2054 

14 70 2057 

1085 1245 

1089 1249 

2270 25730 

1048 25740 

1057 25750 

1068 25760 
25770 

1114 25780 

848 853* 

1118 25790 

1124 25800 

1163 1274 

1165 25820 

1167 25850 

1183 25840 

118 7 25850 

1192 1200 

1224 25870 

1243 25880 

854 25520 

1220 25890 

913 25900 



Msrri? 


020 732 


MSFT14 


020761 


MSFT15 


021003 


MSFT16 


021025 


MSf"T17 


021066 


MSFT2 


020407 


M5FT20 


021114 


MSFT21 


021145 


MSFT22 


021174 


MS''T23 


021231 


MSFT24 


021264 


MSFT25 


021342 


MSFT26 


021420 


HSFT27 


021461 


MSFT5 


020444 


riSFT4 


0204 76 


MSFT5 


020526 


MSFT6 


020556 


MSFT7 


020606 


MSGl 


015422 


MSGIO 


016165 


MSGIOA 


016025 


MSGU 


016205 


MSG12 


016225 


MSG13 


016243 


MSG14 


016270 


MSG15 


016315 


MSG15A 


016336 


MSGi5B 


016375 


HSG16 


016403 


MSG17 


016423 


MSG2 


015510 


MSG20 


016443 


M5G21 


016451 


MSG22 


016456 


M5G23 


016466 


MSG24 


0164 76 


MSG25 


016512 


MSG26 


016520 


MSG27 


016526 


hSG28 


016534 


MSG29 


016564 


MSG? 


015565 


MSG30 


016615 


MSG31 


016643 


MSG32 


016673 


MSG53 


016711 


MSG34 


016726 


MSG35 


016744 


MSG56 


016771 


MSG5 7 


017020 


MSG38 


017057 


MSG?9 


017111 


MSG4 


015723 


MSG40 


017151 


MSG41 


017164 



'M 



146 ) 06 API 
iS REFERENCi 



1V^°''^ 



D7 
16^ 



USi 



'mSous 



SEQ 0061 



26330 



1717 
25620 
1753 
1899 



1687 
1692 

25690 
25700 
1478 
1483 



25610 

25650 
25640 



25670 

25680 



25710 
25720 



25500 
1301 

25860 



25810 



E7 
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MSG4^ 

MSG45 

MSG44 

MSG45 

MSG46 

MSG4 7 

M5G48 

M5G49 

MSG5 

MSG5C 

MSC-51 

MSG52 

HSG55 

MSG54 

MSG56 

MSG!37 

MSG6 

MSG60 

MSG62 

MSG63 

MSG64 

MSG65 

MSGC6 

riSG67 

MSG69 

MSG7 

MSG70 

MSG71 

MSG9 

MTINT 

NONSTO 

NOST 

NRZOr 

NXTDRV 

NXTSLV 

OCTP 

OCTPE 

OCTPEl 

OCTPG 

OCTPGO 

OCTPGl 

OCTPO 

OCTPl 

OCTP? 

0CTP3 

OFL 

OPDrX 

PATRN 

PCNTR 

PtXFL 

PFLG 

PSU 

RCNT 

ROATA 
RDSW 



017^05 

017226 

017243 

017273 

017350 

017374 

017421 

017446 

015746 

017474 

017532 

017566 

017605 

017632 

017776 

020006 

015761 

020022 

020071 

020121 

020152 

020202 

020204 

020206 

020214 

015777 

020262 

020310 

016003 

013566 

000740 

013442 

000724 

002670 

002742 

014630 

014616 

014634 

015004 

015022 

015026 

014650 

014672 

014 700 

014770 

015046 

000640 

000720 

000730 

000702 

000644 

000546 

000624 

023256 
000736 



930 
933 

1746 

1748 

1406 

1432 

1422 

1777 
863 

1782 

1816 

1823 

1958 

1967 

2064 

2104 
999 

1523 
937 

1854 

1885 

2319 

2328 

1965 
845 

2358 

2240 

2027 

1465 
668 
758# 
898 
752« 
970# 
970* 
857 

1088 

2419* 

2426 

2457 

2421 

2417 

2424 

2427 

2422 

2415* 
7260 
7500 
7540 
743^ 
7260 
6940 
7200 

1542* 

1366 
7570 



21890 



998 

866 

1092 

2429 
2459 
24650 
2420 
2428* 
24300 
24530 
2418* 
1315* 
1351* 
949* 



2231* 
1349* 
1609* 
1444 



1683 
25970 



1843 



1872 



2596tt 



MACni 30(1046) 06-APR.84 10:45 PAGE 56-5 
CROSS REFERENCE TABLE -- USER SYMBOLS 



25910 
25920 
25930 
25910 
1510 
1914 
25980 
25990 
25530 
26000 
26010 
26020 
26030 
26040 
26060 
26070 
25540 
26080 
26090 
26100 
26110 
26120 
26130 
26140 
26150 
25550 
26160 
26170 
25560 
873 



SE.Q 0082 



22170 



902 
1560 

2436 
24620 

24c'30 



2458 
1348* 
1676* 
1001 



1363* 

1625 

1505 



919 
2071 

2440 



940 
2073 

2445 



1002 
2075 

2450 



1248 

2077 

2452 



1252 

2079 

24560 



1482 
2085 



1487 
2087 



2067 
2089 



2273 
24150 



24180 
2530 



2462* 
1400* 
1 709* 
1012* 



1565* 
1627* 
1558 



24680 
1502* 
1835* 
2176 



157^* 

1628 

1728 



1536* 
1864* 



13/7* 
1648* 
1848 



1575* 
1939* 



1580* 
lb56* 
187 7 



1615* 
2U3 



1385* 
2U7 



1995 



1395* 1415* 1508* 1514* 
26540 



155-* 



F7 
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725* 
704* 
724* 
753* 
751* 
712* 
723* 
729* 

1354 

1863 

738* 

739* 

841 

727* 

740* 

1749* 

1096 
747* 

1917 
700* 
716* 
688* 

2502 
936 
659 
741* 
734* 

2040* 
969 
878* 
654* 
884* 
389* 
912 
929 
663 
695* 

1253 

2274 
653* 

1555* 
689* 
755* 
731* 
732* 
733* 
822 

1.00ft 

2379 
711* 

2334 
697* 
696* 
823* 

1586 



RD1DX 


000636 


REGS 


000572 


RFD 


000634 


RHOr 


000726 


RHTF 


000722 


RH17F" 


000604 


RRD 


000632 


RTRN 


000646 


RWND 


012442 


SAVl 


000666 


SAV? 


000670 


SAV3 


000672 


SCHN 


001710 


SCNT 


000642 


SCOLP 


000674 


SCOPE 


013334 


SERFL 


000712 


SERNUM 


000562 


SLVN 


000614 


SN 


000540 


SNPG 


015234 


SNPT 


015156 


START 


001600 


STELG 


000704 


STNSK 


000660 


STSCO 


003126 


STO 


002124 


5T0B 


001764 


STl 


002146 


STIA 


002166 


ST2 


002344 


ST3 


002454 


ST4 


002540 


5WR 


000550 


SWREG 


000176 


TAG 


007206 


TC 


000542 


TtMPST 


000732 


TEMPI 


000652 


TEMP2 


000654 


TEMP 3 


000656 


TEND 


003162 


TEr40X 


003260 


TEX 


014614 


TIB 


000602 


TIMER 


014332 


TKB 


000554 


TK5 


000552 


TLAST 


001120 


TMCHK 


013164 



MACYU 30(1046) 06 APR-84 10:45 PAGE 56-6 
CROSS REFERENCE TABLE -- USER SYMBOLS 



SEQ 0083 



1314* 

856 
1418* 
939 
887* 
956* 
1417* 
2218 
1394 
1876 



842* 
1419* 
1049* 
1783* 
1144 
1408 
1922 

918 
935 

2505 

2496* 
829* 
955* 
976* 

2041 
989* 
881 

2282 
886 
9)5 
916* 
933/> 
948* 
834 

1461 

2524 
838 

1565* 
927* 

1552* 

2487 

991 

1010 

2411* 

2308 

2337 

2225 

954* 

990 

1592 



1347* 
858 

1441* 
941 

1031 
962* 

1440* 

1504 
1895 



1429* 

1058* 

1817* 

2158* 

1424 

2017* 

920 

2511 



984 
1403* 



1034 
932 



038* 
1488 
2529 

841 
1569* 

970* 

1553 

2490 

997* 
10120 

2512 

2348 

2369 

2366 » 

2205* 

159/ 



1401* 

875 
1455 
1297 
1033* 
1150 
1448 

1517 
1910 



1438* 

1069* 

1824* 

2279 

1434 

2043* 

927 

2513 



989* 
1500* 



841* 
1933 
2533 
2236 
2080 
1329* 

1628* 



1299 



2317 
2351 
2397 
2367 

1622 



1501' 



2280 
1176 



1578 
1938 



1647* 
1107* 
1949* 

1512 
2102 



967 
2044 

2247 

1544* 

1641* 

2200 

2322 
2358* 

2395 

1655 



1520* 1535* 1574* 1614* 1774* 1987 



1206 



1612 
2003* 



1912* 
1169* 
2163 

1620 



1261 
1675 



1281 



1708 1722 1727 1759 1834 



1847 



970* 1792 
2515* 



1983 

1179* 

2167 

1639 
2212 



1211* 
2276* 

1653 



1264* 1284* 



1685 



1845 



1308* 



1874 



1327* 



1902 



1361* 
1908 



1524* 1583* 1589* 1617* 1637* 1651* 1778* 1898* 2033* 



981 
2062 

2524 

1820 

2082 



986 
2090 



1975* 
2305* 



1009 
2159 



2055 
2314 



1076 
2172 



2088 
2338* 



1093 
2236 



2212* 



1131 1140 1257 
2238* 2247* 2265 



2332 



1901 



2335 



1907 



2342* 2343 



191b 



1921 



2369* 2370* 2371 



2100* 



[;j ■/ 
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TOB 



000600 



Tor> 


014514 


TPB 


000S60 


TPS 


000556 


TRAP 


013756 


TRAPX 


014040 


TRAPXX 


014066 


TRAP! 


014012 


TRAP2 


014050 


TSCD 


002554 


TSCOA 


003020 


TSCOO 


003030 


TSCDl 


003036 


TSCD2 


003074 


TSCD3 


003106 


TSRH 


003022 


TSTTBL 


000756 


TTIN 


014352 


TTINT 


013576 


TTOUT 


014414 


TTR 


014072 


UOES 


000716 


VECT 


000570 


uc 


000512 


UCNT 


000622 


WDATA 


021544 


$CNTG 


021515 


iCNTRL 


001122 


*OOME 


003170 


fENOAO 


003226 


iMNEU 


021530 


$M5WR 


021521 


$QUEST 


021540 


iSVPC ' 


000764 


J K 


023260 


.PtSTO 


015400 


.SAVE 


015356 
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SEQ 0084 



710* 


882 


2371* 


2377* 


2378 


2380 


2384* 


2387* 


2391* 


2410 


2453* 


2464* 


2472* 


2474*' 


2477 


2482* 


2515* 


2517* 


















2372 


2332 


2385 


2388 


2392 


2395* 


2402 


2407 


2409 


2454 


2465 


2516 




69c>^!^ 


2410* 


2479* 


2481+ 




















6^6* 


2408 


2475 






















1019 


2262* 
























2275 


22770 
























2281 


2283* 
























2266 


22^0* 
























2264 


2274* 
























852 


954* 


988 


1013 




















970 


971* 
























973* 


985 
























974* 


996 
























981* 


1035 


llOi 


1127 


1162 


1203 


1234 


1273 


1300 


1322 


1341 


1387 


1495 


1567 


1603 


1667 


1702 


1752 


1766 


1826 


1857 


1836 


1929 


1969 






982 


984* 
























888 


972* 
























774* 


972 


994 


2191* 


2193* 


2196* 


2198* 


2200* 


2202* 










2307 


2366* 
























646 


2225* 
























846 


849 


855 


864 


890 


900 


914 


917 


931 


934 


938 


1000 


1081 


1084 


1086 


1090 


1136 


1139 


1241 


1244 


1246 


1250 


1464 


1466 


1471 


1477 


1479 


1484 


1557 


1968 


2050 


2053 


2058 


2061 


2065 


2069 


2241 


2269 


2271 


2320 


2329 


2359 


23770 


2383 


2393 


2528 


2532 












862 


871 


895 


907 


924 


945 


2303* 


2537 












749* 


1310* 


1353* 


1382 


1384* 


1393* 


1468 


1491 


1493* 


r;.06» 


1539* 


1577* 


1598 


1600* 


1611* 


1663 


1665* 


1674* 


1697 


1699* 


1714* 


1761* 


1796* 


1640* 


1849* 


1869* 


1878* 


1894* 


1924 


1926* 


1944* 


1975 


2031 














703* 


865 


867 


872 




















677* 


1043 


1546* 


1976* 


2072 


















719* 


1312* 


1331* 


1356* 


1398* 


1414* 


1518* 


1580* 


1629* 


1680* 


1713* 


1724* 


i730« 


1738* 


1764* 


1799* 


1839* 


1868* 


1943* 


19 '6 














1332 


1357 


1396* 


1547 


1631 


1678 


1711 


1762 


1797 


1837 


1866 


1941 


2112 


2652* 


























2645* 


























824* 


2252* 


2256* 


2397* 


2398* 


2399 


2401* 


2403 


2405* 


2406 








970 


9990 
























642 


1006* 
























2531 


2647i> 
























2527 


^646* 
























2648* 


























642* 


























640* 


642* 


645* 


652* 


658* 


662ft 


667* 


6730 


826* 


2651* 


2653* 






2242 


2538 


25420 






















2239 


2526 


2541* 
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CROSS REFERENCE TABLE -- MACRO NAMES 



SEQ 0085 



$CATCH 


559« 


640 


$CHAIN 


559^ 


841 


$CHNMO 


559* 


970 


SRPSTO 


'^590 


2542 


J SAVE 


S59d 


2541 


. JACTl 


559* 


642 


.$EOP 


559* 


1006 



. ABS. 025260 



000 



ERRORS DETECTED: 



CZTECr,C^TECF/CRr-CZTEAE.SML/ML,CZTECF.Pll 
RUN -TIME: 3 5 .9 SECONDS 
RLIN-TIME RATIO: 19/10"l.a 
CORE USED: UK (22 PAGES) 



CZTECF,P11 


06- APR. . 


..Bl 


CZTECF.Pll 


06-APR. . 


..85 


CZTECF.Pll 


06-APR. . 


..CI 


CZTECF.Pll 


06-APR. , 


. .C5 


CZTECF.Pll 


06-APR. . 


. .01 


CZTECF.Pll 


06-APR. . 


. .05 


CZTECF.Pll 


06-APR. . 


..El 


CZTECF.Pll 


06-APR, . 


. .E5 


CZTECF.Pll 


06-APR. . 


..Fl 


CZTECF.Pll 


06-APR. . 


. .F5 


CZTECF.Pll 


06-APR.. 


. .Gl 


CZTECF.Pll 


06-APR. . 


. .G5 


CZTECF.Pll 


06-APP. . 


..HI 


CZTECF.Pll 


06-APR. . 


. .H5 


CZTECF.Pll 


06-APf'. . 


..11 


CZTECF.Pll 


06-APR. . 


..15 


CZTECF.Pll 


06-APR. . 


. .Jl 


CZTECF.Pll 


06-APR. . 


. .J5 


CZTECF.Pll 


06-APR. . 


.,K1 


CZTECF.Pll 


06-APR. . 


. .K5 


CZTECF.Pll 


06-APR., 


.,L1 


CZTECF.Pll 


06-APR. . 


. .L5 


CZTECF.Pll 


06-APR. . 


,.rii 


CZTECF.Pll 


06-APR. . 


. .M5 


CZTECF.Pll 


06-APR, , 


, .Nl 


CZTECF.Pll 


06-APR.. 


. .N5 


CZTECF.Pll 


06-APR. . 


..82 


CZTECF.Pll 


06-APR.. 


..86 


CZTECF.Pll 


06-APR.. 


. .C2 


CZTECF.Pll 


06-APR. . 


. .C6 


CZTECF.Pll 


06-APR.. 


..02 


CZTECF.Pll 


06-APR. . 


..06 


CZTECF.Pll 


06-APR. . 


. .E2 


CZTECF.Pll 


06-APR.. 


..E6 


CZTECF.Pll 


06-APR,. 


. .F2 


CZTECF.Pll 


06-APR. . 


..F6 


CZTECF.Pll 


06-APR.. 


..G2 


CZTECF.Pll 


06-APR. . 


..G6 


CZTECF.Pll 


06-APR. . 


..H2 


CZTECF.Pll 


06-APR. . 


. .H6 


CZTECF.Pll 


06-APR.. 


..12 


CZTECF.Pll 


06-APR.. 


..16 


CZTECF.Pll 


06-APR.. 


..J2 


CZTECF.Pll 


06-APR. . 


..J6 


CZTECF.Pll 


06-APR. , 


. .K2 


CZTECF.Pll 


06-APR. , 


..K6 


CZTECF.Pll 


06-APR.. 


..L2 


CZTECF.Pll 


06-APR.. 


..L6 


CZTECF.Pll 


06-APR. . 


..ri2 


CZTECF.Pll 


06-APR. . 


..M6 


CZTECF.Pll 


06-APR, . 


..N2 


CZTECF.Pll 


06-APR. . 


..N6 


CZTECF.Pll 


06-APR. . 


..85 


CZTECF.Pll 


06-APR. . 


..87 


CZTECF.Pll 


06-APR. . 


..C3 


CZTECF.Pll 


06-APR. . 


..C7 


CZTECF.Pll 


06-APR. . 


..D3 


CZTECF.Pll 


06-APR. . 


..07 


CZTECF.Pll 


06-APR. . 


..E3 


CZTECF.Pll 


06-APR. . 


..E7 


CZTECF.Pll 


06-APR. . 


..F5 


CZTECF.Pll 


06-APR. . 


..F7 


CZTECF.Pll 


06-APft.. 


..G3 


CZTECF.Pll 


06-APR. . 


..G7 


CZTECF.Pll 


06-APR. . 


..H3 


CZTECF.Pll 


06-APR,. 


..H7 


CZTECF.Pll 


06-APR., 


..13 








CZTECF.Pll 


06-APR. . 


..J3 








CZTECF.PlA 


06-APR. . 


..K3 








CZTECF.Pll 


06-APR. . 


..L3 








CZTECF.Pll 


06-APR. . 


..M3 








CZTECF.Pll 


06-APR. . 


..N3 








CZItCf .Pll 


06 AI'H. . 


..84 








CZTECF.Pll 


06 APR . . 


,.C4 








CZTECF.Pll 


06-APR, . 


..D4 








CZTECF.Pll 


06-APR. . 


. .E4 








CZTECF.Pll 


06-APR. . 


..F4 








CZTECF.Pll 


06-APR. . 


. .Li4 








CZTECF.Pll 


06-APR. . 


. .^M 








CZTECF.Pll 


06-APR.. 


..14 








CZTECF.Pll 


06-APR. . 


..J4 








CZTECF.Pll 


06-APR. . 


..K4 








CZTECF.Pll 


06-APR. . 


. .L4 








CZTECF.Pll 


06-APR. . 


. .M4 








CZTECF.Pll 


06-APR.. 


,.N4 









